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ABSTRACT 



1.V THIS PACKAGE CONTAINS 4 INDIVIDUAL UTILITY PROGRAMS 

FOR THE RKXX PLUS A MINI-MONITOR WHICH ALLOWS TEST SELECTION 
A NO PARAMETER INPUT VIA THE CONSOLE DEVICE* ALL UTILITY 
PACKAGES ARE EXPLAINED IN DETAIL IN PARAGRAPH 9. 



REQUIREMENTS 

2.1 EQUIPMENT 
PDP-11 PROCESSOR 
8K MEMORY . 

RK11 OR RKV11 CONTROLLER 

1-8 RK05 OR RK05F DISK DRIVES (DRIVE TYPES MAY BE MIXED) 

2.2 STORAGE 

THIS PROGRAM REQUIRES 8& 

2.3 PRELIMINARY PROGRAMS 

THIS IS NOT A DIAGNOSTIC, PACKAGE IT IS ASSUMED THAT ALL 
EQUIPMENT IS FUNCTIONAL 



LOADING PROCEDURE 
3*1 METHOD 

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED 
A * ABSOLUTE LOADER MUST BE IN MEMORY. 

B. PLACE BINARY TAPE IN READER . 

C. LOAD ADDRESS *7500 (^DETERMINED BY LOCATION OF 
LOADER) . 

D. PRESS "START* PROGRAM WILL LOAD* 



STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 4 
NONE 

4.2 STARTING ADDRESS 
200 MINI MONITOR 

4.3 PROGRAM AND/OR OPERATOR ACTION 
LOAD PROGRAM INTO MEMORY 

SET SWITCH REGISTER TO STARTING ADDRESS (200) 
LOAD ADDRESS 
PRESS START 



IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 1 1/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
1 SOFTWARE 1 SWITCH REGISTER IS LOCATED AT LOCATION 176 (8) . THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G' . THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G' whenever the program enters 
the scope routine or begins a new test* the 

1 SOFTWARE • SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE! 
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EACH TIME SWITCH SETTING ARE ENTERED * THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. , 'RUBOUT 1 AND 
1 CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 1 SOFTWARE ' SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
'UP* POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
1 SOFTWARE 1 REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
8E FOLLOWED. 



PROGRAM WILL TYPE MINI MONITOR ROUTINE 



OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 

SEE SEC. 9,0 FOR SWITCHES APPLICABLE TO INDIVIDUAL 
ROUTINES. 

5.2 SUBROUTINE ABSTRACTS 
NOT APPLICABLE 

5.3 PROGRAM AND/OR OPERATOR ACTOR 

SEE INDIVIDUAL PACKAGE DESCRIPTION (PARAGRAPH 9) 



ERRORS 

6.1 ERROR HALTS AND DESCRIPTION 

IF HALTED A MAJOR PROBLEM EXIST CHECK 
CODE AT HALT PC TO DETERMINE WHAT 
OCCURRED. 

6.2 ERROR RECOVERY 

EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE 
DESCRIPTION (PARAGRAPH 9) 



RESTRICTIONS 

7.1 STARTING RESTRICTIONS 

IT IS NOT RECOMMENDED THAT YOU START AT AN 

ADDRESS OTHER THAN 200, (REASON EXPLAINED IN PARAGRAPH 9 * 1 ) 
UNLESS DIRECTED TO BY THE PROGRAM. 

7.2 OPERATIONAL RESTRICTIONS 

EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE DESCRIPTIONS (PARAGRAPH. 9) 



EXECUTION TIME 

VARIES WITH SELECTED ROUTINE, NUMBER OF DRIVES, ETC® 



PROGRAM DESCRIPTION 



THE RK11 UTILITY PACKAGE IS DIVIDED INTO EIGHT SECTIONS 

WHICH ALLOW COMPATABI LITY TESTING, OSCILLATING SEEKS FOR SERVO 

ADJUSTMENT AND SEEK LOGIC WAVEFORM ANALYSIS, PACK FORMATTING 

AND SURFACE VERIFICATION s AND FRONT PANEL TESTING (INDICATOR LAMPS , 

SWITCHES t INTERLOCKS f ETC) AND VERIFICATION. 

THE PACKAGE. IS DIVIDED INTO FIVE SECTIONS 



SECTION 



NAME 



INDEX 

COMPATIBILITY TEST 

OSCILLATING SEEK PACKAGE 

FORMATTER SURFACE VERIFIER 

FRONT PANEL TEST 

RK05 CONTROL PANEL TEST #2 

HEAD ALIGNMENT ROUTINE 

POWER FAILURE (DURING WRITE) TEST 



NOTE: NORMAL LINKAGE TO ANY OF THESE PACKAGES IS THRU 
SECTION (SEE PARAGRAPH 9.1 ) 

9*1 SECTION INDEX 



PURPOSE* 



DESCRIPTION* 



USES 



TO ALLOW THE USER TO SELECT AND RUN TESTS VIA 

THE CONSOLE DEVICE IN AN EFFORT TO FREE HIM 

FROM REMEMBERING VARIOUS SWITCH SETTINGS. 

LOAD START ADDRESS 200, A TABLE IS PRODUCED 

WHICH TELLS THE USER THE NAME AND TYPE OF THE 

TEST. (TYPE IS AN OCTAL CODE BY WHICH THE USER SELECTS 

THE TEST). AFTER THE TABLE IS TYPED* THE QUESTION K TYPE 

IS ASKED, THE USER THEN TYPES THE NUMERAL 0-4 

TO SELECT A TEST. 

THIS IS EXAMPLE OF THE ACTUAL OUTPUT I 

RK11 UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE=X 
ERROR INFO: 



WERE "X M IS THE RESPONSE (0-7) 8Y THE USER 

ANY ILLEGAL INPUT IS HANDLED, A QUESTION MARK 
IS TYPED AND THE QUESTION "TYPE s" IS RE-ASKED. 



9.2 SECTION 1 COMPATIBILITY PACKAGE 

purpose: to confirm the fact that a group OF DRIVES 

(A MAXIMUM OF EIGHT) ARE TRULY COMPATIBLE. 

THIS PACKAGE DOES NOT APPLY TO RK-05F DRIVES * 
DESCRIPTIONS THIS PACKAGE ALLOWS A USER TO AUTOMATICALLY TEST 



COMPATIBILITY OF UP TO EIGHT (8) DRIVES SIMPLY 
BY STATING THE DRIVE NUMBERS TO BE TESTED. THE 
TEST DOES THE REST, INSTRUCTING THE USER WHERE 
TO PLACE THE PACK* THE LIMITATIONS OF TESTING ARE 
IF THERE ARE (2) TWO PROCESSORS, FROM ONE (1 ) TO 
SEVEN (7) DRIVES MAY BE ON SYSTEM ONE , AND 
ONLY ONE (1) DRIVE (ANY DRIVE NUMER ) MAY 
BE ON SYSTEM TWO . 

COMPAT IBILITY-A DEFINITION , COMPATIBILITY INFERS 
MORE THAN THE FACT THAT INFORMATION WHICH 
WAS WRITTEN ON ONE DRIVE CAN BE 
READ ON ANOTHER. 

FOR DRIVES TO BE CONSIDERED TRULY COMPATIBLE 
ANY DRIVE SHOULD BE ABLE TO READ WHAT WAS 
WRITTEN BY ANY OTHER DRIVE AND ALSO MUST BE ABLE 
TO OVERWRITE A PORTION OF INFORMATION WRITTEN 
BY ANOTHER DRIVE, WITH NEW INFORMATION, AND 
READ IT BACK. THIS IS A VERY BROAD DEFINITION 
BUT IS THE BASIC PREMISE OF TRUE COMPATIBILITY. 
USE? THE BELOW IS AN EXAMPLE OF ACTUAL OUTPUT, THE USER 

WANTS TO RUN SINGLE PROCESSOR MODE AND TEST 
COMPATIBILITY ON THREE (3) DRIVES WHOSE UNIT NUMBERS 
ARE 0, 1 f 3* * * . • 

******** 

EXAMPLE 1 



NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

«K05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 8 

POWER FAILURE (WRITE) TEST 7 



TYPE=1 

DRIVE NUMBERS ON SYSTEM 1=0,1 ,3* 

IS THERE A SECOND SYSTEM7N 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

WAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DONE l 



RK11 UTILITY PACKAGE 

seo mm 

NAME • TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 

sft % * % * & * & s£s * 



8 . » THE USER SELECTED TYPE ONE (1) AND RECEIVED 
THE MESSAGE RKXX COIVIPAT I BI LI TY PACKAGE AND WAS THEN 
ASKED FOR SYSTEM 1 DRIVES HE TYPES EACH SELECTED 
DRIVE NUMBER SEPARATED BY COMMAS HE TERMINATES THE 
STRING WITH A PERIOD THEN A CARRIAGE RETURN 
HE IS ASKED IF THERE IS A SECOND SYSTEM t 
HE TYPES N FOR NO. 

HE NOW RECEIVES A STRING OF MOVE DIRECTIVES TELLING 

HIM EXACTLY WHERE TO MOVE THE TEST PACK AND WHAT TO 

DO* FINALLY THE USER RECEIVES THE MESSAGE ®DQNE 1 81 

INDICATING A SUCCESSFUL PASS. 

AT THIS POINT ANY DRIVE WHICH HAS NOT BEEN 

DECLARED DOWN AND DID NOT RECEIVE AN ERROR* 

MESSAGE IS COMPATIBLE WITH ANY OTHER SELECTED 

DRIVE MEETING THE SAME CONDITIONS. 

FINALLY THE INDEX ROUTINE IS AUTOMATICALLY 

RE-ENTERED AND USER IS READY TO MAKE ANOTHER 

SELECTION. 

*SEE ERROR INFO TO DETERMINE THE TYPE OF ERROR 
WHICH CONSTITUTES INCOMPATABI LI TY „ 

$ $ sfc sfc sf: sfs $ $ $ 



EXAMPLE 2 

THE USER NOW DESIRES TO TEST COMPATIBILITY ON 
TWO SYSTEMS HE HAS UNITS O s 1 ON SYSTEM ONE 
AND UNIT ON SYSTEM 2* IT GOES LIKE THIS**** 
RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 -CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE=1 

DRIVE NUMBERS ON SYSTEM 1»1 f O 

IS THERE A SECOND SYSTEM?Y 
DRIVE # =0 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

LOAD AND START ADDRESS 210 ON SYSTEM 

AND TYPE THE BELOW WHEN ASKED ON SYSTEM #2 



AND TYPE THE BELOW WHEN ASKED FOR IT * 
WORD 1 =000002 

WORD 2=000200 



. • • • THE ONLY DIFFERENCE BETWEEN THIS AND SINGLE 
SYSTEM IS THE NEW DIRECTIVE TO LOAD START 210 

ETC* THE USER NOW LOADS AND STARTS SYSTEM TWO 
AND THE BELOW IS TYPED* * * 

SfS S§S $ # S§5 * 5§S SfS S§S $ 

C0MPATIBI-LITY-SYSTEM#2 
WORD 1=000002 

WORD 2-000200 

MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 

DONE SYSTEM 2 RESTART SYSTEM 1 f TYPE WORD 000077 



THE USER RESPONSE TO THE QUESTION WORD 1 » 

BY TYPING WORD 1 FROM PROCESSOR ONE AND 

WORD 2 = t BY TYPING WORD TWO FROM PROCESSOR 1 

HE RECEIVES THE MOUNT COMMAND MOVES THE TEST PACK 

TO SYSTEM TWO, DRIVE NUMBER (0) , AND PRESSES 

CONTINUE. NOW THE MESSAGE TO RETURN Tl SYSTEM 

ONE* 

^SYSTEM ONE HAS BEEN IN A HALT STATE AND 
SHOULD BE LEFT THAT WAY UNTIL THE RETURN FROM 
SYSTEM TWO SO THAT TABLES, ETC. BUILT FOR THE 
TEST WILL NOT BE DISTURBED. 

$ $ sf: sft $ # s§s jfs $ s§s 

W0RD=000077 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DONE! 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX * 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE= 



* * $ $ & $ * $ * * 



SEO 0©O8 



THE USER NOW PRESSES CONTINUE ON PROCESSOR ONE 
AND IN RESPONSE TO THE QUESTION, WORD = t TYPES 
THE WORD GIVEN TO HIM FROM PROCESSOR TWO 
THEN EVERYTHING BECOMES THE SAME AS A SINGLE 
SYSTEM* THE USER MEARLY FOLLOWS DIRECTIONS* 
ERROR INFOS SEE PARAGRAPH 9,6 SPECIAL SECTION 



SEQ ©009 



9*3 SECTION 2 OSCILLATING SEEK PACKAGE 



PURPOSES TO ALLOW THE, USER TO MAKE SERVO ADJUSTMENTS 

AND/OR SEEK LOGIC CHECKOUT BY PERFORMING 

SEEKS BETWEEN USER SPECIFIED ADDRESS 
DESCRIPTIONS SELECT TYPE 2, THE USER THEN INSERTS 

THE DRIVES TO BE TESTED IN SWO TO SW7 . 

OF THE SWITCH REGISTER. A SWITCH IS SET 

FOR EACH DRIVE (E.G. SW2 TO TEST DRIVE 2* 
THE USER THEN INSERTS THE 

ADDRESS TO SEEK IN THE SWR, IF BOTH ADDRESS 

ARE LEGAL, 50 CYCLES (100 SEEKS) WILL BE 

MADE BETWEEN THE SPECIFIED ADDRESS THEN 

THE PROGRAM WILL LOOK AT THE SWR FOR 

POSSIBLE CHANGES THIS SHOULD ALLOW FOR GOOD 

STABLE TRACES ON AN OSCI LLI SCOPE . 

IT SHOULD BE NOTED THAT THE OSCILLATING 

SEEKS BETWEEN THE SPECIFIED CYLINDERS 

ARE DONE ON ALL AVAILABLE DRIVES, 

THE ONLY WAY TO EXIT IS HALT!, LOAD ADDRESS 200, 
HIT START * 

USES SELECT TYPE 2, RESPOND TO QUESTION WITH UNIT NUMBER, , * 

TYPE=2 

OSCILLATING SEEK PACKAGE 

SET SWO TO SW7 TO SELECT THE DRIVES TO TEST 
AND CONTINUE. IF ALL SWITCHES ARE RESET f 
ALL AVAILABLE DRIVES WILL BE TESTED. 
TOGGLE THE "FIRST CYLINDER ADDRESS" (OUTER LIMIT) 
■INTO THE LOW BYTE (BITO-7) OF THE SWITCH REGISTER AND THE 
CYLINDER ADDRESS" ( INNER LIMIT) INTO THE HIGH 
BYTE (BIT8-15), THEN PRESS CONTINUE 
* . . FOLLOW INSTRUCTIONS TYPED 
ERROR INFO* IF AN ILLEGAL ADDRESS IS SELECTED A MESSAGE IS TYPED 
AND USER MEARLY SELECTS LEGAL ADDRESS AND DEPRESSES 
CONTINUE 



3 LAST 



EXAMPLE TYPEOUT 

INVALID ADDRESS IN 

INVALID ADDRESS IN 

INVALID ADDRESS IN 



SWITCH REGISTER TRY AGAIN 
SWITCH REGISTER TRY AGAIN 
SWITCH REGISTER TRY AGAIN 



♦♦NOTE:** BOTH DRIVES OF AN RK-05F SHOULD NOT BE, SELECTED 

FOR TESTING AT THE SAME TIME® 

9.4 SECTION 3 FORMATTER-SURFACE VERIFIER 



PURPOSE 2 TO FORMAT VIRGIN PACKS OR REFORMAT AN OLDER 

PACK AND VERIFY ITS SURFACE 

DESCRIPTION! SELECT TYPE 3 ? RESPOND TO THE QUESTION 
BY SETTING SWITCHES CORRESPONDING TO 
DRIVE NUMBERS TO BE FORMATTED. THUS IF 

DRIVES 0,1,2 ARE TO BE FORMATTED SET 
SWITCHES G.,1.2. THE DRIVES ARE FORMATTED 
ONE AFTER ANOTHER AT COMPLETION PACK GOOD 



MESSAGE IS TYPED AND PACK IS FORMATTED* 
USE* SELECT TYPE 3 f RESPOND TO QUESTION WITH SEQ 0010 

SETTING OF SWITCH REGISTER * 
**********< 

RK11 UTILITY PACKAGE 

NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 8 

POWER FAILURE (WRITE) TEST ? 

TYPE=3 

FORMATTER-SURFACE VERIFIER t SET SW REG WITH DRIVE #'S 

PACK GOOD. 

RK11 UTILITY PACKAGE 

NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 

S§S * # # # i§£ * $ $ & 

AFTER THE PACK IS FORMATTED A GOOD MESSAGE IS 
GIVEN AND A CHECK IS MADE TO SEE IF THERE ARE 
ANY MORE PACKS TO BE FORMATTED. IF THERE ARE 
NONE CONTROL IS TRANSFERRED TO THE MINI-MONITOR 
ERROR INFO! DRIVE PROBLEM , IF THE MESSAGE* • • • 
SYSTEM ERROR 

....IS TYPED IT INDICATES A FAULTY DRIVE OR 
CONTROLLER , RUN DIAGNOSTICS, THE PROCESSOR WILL HALT 
PRESS CONTINUE TO RETURN TO MINI MONITOR, 
BAD SPOT, OR SURFACE PROBLEM, ETC. 

PACK FAILED AT (IN OCTAL) CYLINDER SECTOR SURFACE 
9*5 SECTION 4 RK05 CONTROL PANEL TEST 

PURPOSE: TO INSURE ALL SWITCHES INDICATOR LAMPS, AND INTERLOCKS 

ARE FUNCTIONAL IN THE RK05 
DESCRIPTION* SELECT TYPE 4, RESPOND TO QUESTION WITH UNIT NUMBER, FOLLOW 

DIRECTIONS GIVEN. AT COMPLETION MESSAGE "DONE!" IS GIVEN 
USES SELECT TYPE 4 f RESPOND TO QUESTION WITH THE UNIT NUMBER* * . * 

$ $ J$C # $ $ S|5 $ $ $ 

NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE=4 



RK05 CONTROL PANEL TEST, WHICH DRIVE70 
MOUNT PACK ON DRIVE#0 

PLACE DRIVE IN RUN ; SHOULD SEE THE RUN , 
POWER » AND ON CYLINDER LAMPS LIGHT . 
WAKE DRIVE WRITE ENABLE PRESS CONTINUE 

WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 

CLEAR WRITE PROTECT THEN PRESS CONTINUE 

CAUTION! TRY TO OPEN THE DOOR f DO NOT FORCE! 

DOOR SHOULD NOT OPEN! 

PRESS CONTINUE WHEN FINISHED 

PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT 
PRESS CONTINUE WHEN FINISHED 

OPEN THE DOOR , PUT DRIVE IN RUN 
CAUTION! IF RUN LIGHT ON ERROR! DEPRESS 
LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 

REMOVE THE PACK, CLOSE THE DOOR 
PUT DRIVE IN RUN v DRIVE SHOULD NOT 
RUN . . .INTERLOCKS HAVE BEEN CHECKED 
DONE! 

RK11 UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE f 

OSCILLATING" SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE ) TEST 7 



TYPEs 



# S§S * $ $ $ S§5 Sf? 



9,6 SECTION S 



PURPOSE l 



DESCRIPTION! 



USE! 



RK05 CONTROL PANEL TEST #2 

TO GIVE A CONTINUOUS MONITORING AND 
CHECKING CAPABILITY FOR THE FOLLOWING 
CONDITIONS ON THE VARIOUS DRIVES: 
OFF LINE (RDY CLR)/ON LINE ( RDY SET) 
WRITE PROTECTED/WRITE ENABLED 
POWER LOW/POWER UP 
SEEK INCOMPLETE/SEEK OK 

SELECT TYPE 5 f PUT ALL THE DRIVES THAT 
ARE TO BE MONITORED AND CHECKED ON 1 RUN 1 * 
NOTE THAT THIS IS IMPORTANT BECAUSE THE 
PROGRAM HAS TO KNOW WHICH DRIVES ARE TO 
BE CHECKED. 

AFTER HAVING SELECTED TYPE 5 AND PUTTING 
THE DRIVES THAT ARE TO BE MONITORED ON 
S RUN S , THE PROGRAM PRINTS OUT ALL THE 
DRIVES THAT ARE * ON LINE s • 



SEQ 0011 



j 



DRIVE ON LINE 
DRIVE 1 ON LINE 
DRIVE 2 ON LINE 

THE PROGRAM, THEN STARTS SCANNING ALL 

DRIVES 9 ONE AFTER THE OTHER . CHECKS IF 

THE DRIVE IS ON LINE OR OFF LINE (DRY 

SET OR CLEAR) . THEN IT CHECKS IF THE 

DRIVE IS WRITE ENABLED OR WRITE PROTECTED* 

THEN A SEEK (TO CYLINDER 1) IS DONE AND 

8 DPL 1 BIT IS CHECKED TO SEE IF DRIVE 

POWER IS LOW OR OK. IF THE DRIVE IS 

POWERED, IT IS CHECKED IF T HE SEEK IS 

DONE OR SEEK INCOMPLETE OCCURS. WHEN 

EVER ANY CHANGE IN THE STATUS IS FOUND, 

IT IS REPORTED* IF THE DRIVEIS PUT ON 

1 LOAD ' AND BACK TO ' RUN 1 , THE PROGRAM 

CHECKS IF THE DRIVE COMES ON LINE IN THE 

WRITE ENABLED MODE. IF NOT, AN ERROR MESSAGE 

(ERROR, NOT WRITE ENABLED) IS REPORTED* 

THEN THE DRIVE IS WRITE PROTECTED* 

EX : IN A SYSTEM UNDER TEST, IF A DRIVE IS PUT 

ON 1 LOAD 1 BY THE USER IT GETS REPORTED* 

IF THE USER SET ' WRITE PROT 8 IT GETS 

REPORTED* THE MESS-AGES APPEAR AS FOLLOWING I 

DRIVE OFF LINE 

DRIVE 1 WRITE PROTECTED 

DRIVE 2 SIN 

DRIVE 1 WRITE ENABLED 

DRIVE POWER LO 

DRIVE 2 SEEK OK 

DRIVE POWER OK 

NOTE THAT ONLY CHANGES IN STATUS ARE 
REPORTED, THESE CHANGES HAVE TO BE AFFECTED 
BY THE USER, IF ANY CHANGE IN STATUS IS NOT 
DETECTED AND REPORTED BY THE PROGRAM 

IT MIGHT IMPLY AN ERROR CONDITION* 

9.7 SECTIONS HEAD ALIGNMENT ROUTINE 

PURPOSE? TO PROVIDE A FACILITY FOR HEAD ALIGNMENT t 

WITH DYNAMIC SELECTION OF THE UPPER OR 
LOWER HEAD. 

DESCRIPTIONS WHEN THE ROUTINE IS SELECTED THE 
FOLLOWING MESSAGE APPEARS i 

SET SWO=0 FOR SURFACE 0, SW0=1 FOR SURFACE 1 t 

SET SW1*1 TO TEST CYL 64 ? SET SW1*0 TO TEST 

CYLINDER 105, 

SW2-15=0 

PUT ANY SW FROM 2-15 HI TO SELECT NEW DRIVE 

THEN THE FOLLOWING QUESTION IS ASKED* 

DRIVE? THE USER 

SHOULD TYPE IN THE DRIVE NUMBER THAT 
HE WANTS TO SELECT, THE DRIVE NUMBER IS 
SUFFIXED WITH AN 'F s TO TEST RK-05F TYPE 
DRIVES, 



r 4. 



S6Q mil 



TYPE=6 
DRIVE=0<CR> 

THE UPPER OR THE LOWER HEAD CAN BE 

SELECTED BY SWITCH 0, IF SURFACE IS 

TO BE SELECTED f PUT SW TO 0. IF 

SURFACE 1 IS TO BE SELECTED PUT SW ON 1 . 

THE HEADS MAY BE POSI TONED AT CYLINDER 64 

OR CYLINDER 105. SET SW1»0 FOR CYLINDER 105, 

SWt=1 FOR CYLINDER 64* 

THE PROGRAM POSITIONS THE HEADS ON THE SELECTED 

CYLINDER AND CONTINUOUSLY READS FROM 

THE SURFACE SELECTED. IF THE USER WISHES 

TO SELECT THE OTHER HEAD OR CYLINDER IT CAN BE 

DYNAMICALLY DONE BY FLIPPING SW OR SW 1 * 

IF SOME OTHER DRIVE IS TO BE SELECTED, 

ANY SWITCH BETWEEN SW 2 AND SW 1 5 SHOULD 

BE PUT UP. THE QUESTION - DRIVE? IS 

ASKED AGAIN. THIS IS A CONTINUOUS ROUTINE , 

HENCE TO EXIT A HALT HAS TO BE DONE . 

**NOTE** ALIGNMENT IS DONE WITH AN RK-OSd CARTRIDGE 
SO IF AN F TYPE DRIVE IS SELECTED ? CYLINDER 
64 OF THE RK-05U IS CYLINDER 130 OF THE F DRIVE 
(EVEN DRIVE) * CYLINDER 105 BECOMES 'CYLINDER 5 

OF THE ODD DRIVE ON THE RK-05F * 

9,8 SECTION 7 (DISK) POWER FAILURE (DURING WRITE) TEST 

PURPOSE* THIS TEST CHECKS THAT DATA WRITTEN ON THE DISK 
IS NOT DESTROYED WHEN THE DISK SENSES A LOSS OF 
POWER ( POWER FAILS) WHILE DOING A WRITE* 
DESCRIPTIONS UPON SELECTING THIS TEST , THE PROGRAM FINDS OUT 
THE FIRST AVAILABLE DRIVE AND INDICATES IT TO 
THE USER BY TYPING A MESSAGE : 

DRIVE X X=DRIVE NUMBER 0,1 ,..7 

THEN IT PROCEEDS TO TO WRITE UNIQUE PATTERNS 
ON CYLINDERS TO 15 (DECIMAL) OF THAT DRIVE* 
THE HEADS ARE THEN POSITIONED ON CYLINDER 10 
AND THE USER IS ASKED TO DROP POWER ON THAT 
DRIVE: 

DROP POWER 

MEANWHILE WRITE IS BEING DONE ON CYLINDER 10, 
ON GETTING THE ABOVE MESSAGE THE USER SHOULD 
DROP THE POWER ON THAT DRIVE. ON SENSING A LOSS 
OF POWER f THE PROGRAM WILL ASK THE USER TO PUT 
THE POWER ON AGAIN: 
POWER ON 

ON RECEIVING THE ABOVE MESSAGE THE USER SHOULD 
PUT THE POWER ON. ON DETECTING POWER UP THE 
PROGRAM PROCEEDS TO CHECK THAT THE DATA WRITTEN 
ON CYLINDERS TO 15 WAS INTACT. IF A WRITE 
CHECKS ERROR OCCURS (POSSIBLY MEANING THAT 
SOME OF THE DATA WAS DESTROYED DURING THE 
LOSS OF POWER) IT IS REPORTED AS FOLLOWING! 

ERROR, ON POWER-UP t RKDA=XXXX 
XXXX IS THE CONTENTS OF RKDA AT THE TIME OF 
ERROR . 



THE PROGRAM DOES THE ABOVE POWER FAIL TEST 



ON ALL DRIVES THAT ARE PRESENT f ONE AFTER THE 
OTHER IN A ROUND BOBBIN FASHION* EXIT IS THROUGH 
HALT * 
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9*9 SECTION SPECIAL 



FOR THE BELOW EXAMPLES THE FOLLOWING FORMAT 
WILL BE USED* 

THE ACTUAL TYPEOUT ; COMMENTS ON WHAT 

AND RESPONSE ; OCCURRED OR WHAT TO DO 

*NOTES IF NECESSARY FOR CLARITY 

ERBOR EXAMPLE 1 

FORMATTER-SURFACE VERIFIER 3 
RK05 CONTROL PANEL TEST 4 



TYPEM 

DRIVE NUMBERS ON SYTEWt 1*0. 

IS THERE A SECOND SYSTEM7N 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DRIVE WRITE PROTECTED. 

DRIVE WRITE PROTECTED 

DONE! 

RK11 UTILITY PACKAGE 

NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE 2 

ERROR EXAMPLE 2 

" RK1 1 UTILITY PACKAGE 



NAME TYPE 

INDEX . 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 § 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 

TYPE=1 

DRIVE NUMBERS ON SYTEM 1=0. 



IS THERE A SECOND SYSTEM7N 
MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 



; TYPE 1 SELECTION 
;DRIVE #0 SELECTED 

; NO SECOND SYSTEM 

? CONTINUE PRESSED BUT 

; WRITE PROTECT ON 

; CLEAR WRITE PROTECT SWITCH 

;NOW RUNS TO FINISH 

fTHIS DOES NOT EFFECT 

I OUTCOME OF TEST 



; CONTINUE PRESSED BUT 
; DRIVE NOT READY* IF UP 
| TO SPEED ETC. AND MESSAGE 
I OCCURRING - STATIC SHOULD BE 



DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DONE! 

RK11 UTILITY PACKAGE 



;RUN IF NOT LOADED OR NOT 
I READY MAKING DRIVE READY 
;WILL STOP THE MESSAGE 
; IT DOES NOT EFFECT THE 

I THE OUTCOME OF CQMPATABI LXTY 
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NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE 2 



ERROR EXAMPLE 3 

RK11 UTILITY PACKAGE 



NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE 2 
FORMATTER-SURFACE VERIFIER 3 
RK05 CONTROL PANEL TEST 4 
RK05 CONTROL PANEL .TEST #2 5 
HEAD ALIGNMENT ROUTINE S 
POWER FAILURE (WRITE } TEST 7 

TYPE=1 f DRIVE RESET TIMED OUT 
DRIVE NUMBERS ON SYTENf 1=0,1 ,4,1, 



IS THERE A SECOND SYSTEM?Y 
DRIVE # =2 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CCNTINUE WHEN DRIVE RDY 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 



;THIS MESSAGE IF CONTINUOUS 
; INDICATED A DRIVE PROBLEM 
; THERE IS NO RECOVERY 
; AND IF CONTINUOUS, A 
; LOAD START ADDRESS 200 
; IS NECESSARY, DIAGNOSTIC 
; SHOULD BE RUN AGAINST THE 
; FAX LING DRIVE * 



*NQTE A SLOW DRIVE OR FAST PROCESSOR AND MEMORY 
MAY CAUSE THE MESSAGE TO APPEAR A FEW TIMES AND 
THEN CONTINUE THIS IS OK AND WILL NOT EFFECT THE 
OUTCOME OF THE TEST . 



ERROR EXAMPLE 4 



OSCILLATING SEEK PACKAGE 2 
FORMATTER-SURFACE VERIFIER 3 
RK05 CONTROL PANEL TEST 4 



TYPE-1 



f 



DRIVE NUMBERS ON SYTEW 1=0. 



SEQ 0016 



IS THERE A SECOND SYSTEM7N 
MOUNT PACK ON DRIVE #0 



; SAME AS ABOVE BUT FUNCTION 
;WAS A CONTROL RESET 



MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY ; ALL COMMENTS ARE THE SAME 



CONTROL RESET TIMED OUT 
CONTROL RESET TIMED OUT 
CONTROL RESET TIMED OUT 

*A SINGULAR OCCURANCE AS ABOVE IS NOT A PROBLEM 
AND WILL NOT EFFECT COMPATABI LITY 

ERROR EXAMPLE 5 

THE BELOW ERRORS DO « ALWAYS f EFFECT COMPATABI LITY • 
IN THE FIRST TYPE THE DRIVE IS DOWN 
INDICATING THAT (5) FIVE HARD OR SOFT 
ERRORS OCCURRED. THE TEST WILL CONTINUE 
AGAINST THE OTHER DRIVES BUT THERE IS A 
PROBLEM IN THIS DRIVE AND IT SHOULD BE 
CONSIDERED NON EXISTENT AS FAR AS COMPATABI LI TY 
GOES* THAT IS TO SAY IT IS NOT TESTED 9 THEREFORE 
NOT NECESSARILY COMPATABLE OR 1NCOMPATABLE. 

RK1 1 UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 

TYPE=1 

DRIVE NUMBERS ON SYTE^ 1=0. 

IS THERE A SECOND SYSTEM7N 
MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 

5 ERRORS OCCURRED DRIVE DECLARED DOWN 1 i NOT TESTED I 
DONE! 



♦ IN THE ABOVE CASE THE MESSAGE n 3 SEEK INCOMPLETE 
ERRORS OCCURRED DRIVE DECLARED DOWN I ! NOT TESTED! w 
f«AY OCCUR IT IS THE SAME ERROR AS DESCRIBED ABOVE 
EXCEPT THAT IT IS CAUSED BY 3 SEEK ERRORS OCCURRING 
ON ONE DRIVE. 



CONTROL RESET TIMED OUT 



| AS EXAMPLE 3 



RK11 UTILITY PACKAGE 



NAME 

INDEX 

COMPATIBILITY PACKAGE 



TYPE 
Q 



ERltOR EXAMPLE 6 



RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABI LI TY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 
RK05 CONTROL PANEL TEST ROUTINE 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE-1 

DRIVE NUMBERS ON SYSTEM 1=0®; 

IS THERE A SECOND SYSTEM?? 
DRIVE # =1 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

LOAD AND START ADDRESS 210 ON SYSTEM #2 

AND TYPE THE BELOW WHEN ASKED FQ.R IT. 

WORD 1=101000 

W0RD=000t77 

MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
ERROR! DATA WRITTEN BY DRIVE 

ADDR=002764 EXPCTD=077400 

ADDR=002764 EXPCTD=077400 

ADDR=002764 EXPCTD=077400 

ADDR=002764 EXPCTD=077400 

ADDR=002764 EXPCTD=077400 
ERROR! DATA WRITTEN BY DRIVE 

ADDR=007624 EXPCTD=077400 
ERROR! DATA WRITTEN BY DRIVE 

ADDR=007633 EXPCTD=077400 

ADDR=007633 £XPCTD=077400 
DONE! 

RK1 1 UTILITY PACKAGE 



1 CANNOT BE READ. 
RECVD=177000 
RECVD=077600 
RECVD=037600 
RECVD=037600 
RECVD=037600 
1 CANNOT BE READ* 

RECVD=177000 
1 CANNOT BE READ. 
RECVD=1 77000 
RECVDs177000 



NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE- 

THE ABOVE ERROR MESSAGE SHOWS A COMPATABI LITY 
PROBLEM. ALL ERRORS OCCURRED ON HEAD ONE OF 
DRIVE TRYING TO READ INFORMATION WRITTEN BY 

DRIVE 1 , 



ERROR EXAMPLE 7 



MOUNT PACK ON 
WAKKE PACK WRI 
PRESS CONTINUE 
ERROR! DATA WR 
ADDR=000367 
ADDR=000367 
ADDR=000367 
ADDR=000367 
ADDR=000367 
ERROR! DATA WR 
ADDR=002564 
ADDR=002564 
ADDR=002564 
ADDR=002564 
ADDR=002564 
ERROR ! DATA WR 
ADDR=002764 
ADDR=002764 
ADDR=002764 
ADDR=002764 
ADDR=002764 
ERROR! DATA WR 

ADDR=002767 
S ERRORS OCCUR 
DONE! 



DRIVE #0 
TE ENABLE 

WHEN DRIVE RDY 
ITTEN BY DRIVE 1 CANNOT BE READ * 
RECVD=077600 



EXPCTD=077400 
EXPCTD=077400 
EXPCTD=077400 
EXPCTD=077400 
EXPCTD=077400 



RECVD=037600 
RECVD=03/600 
RECVD=037600 
RECVD=037600 



ITTEN BY DRIVE 1 CANNOT BE READ « 
EXPCTD=077400 RECVD=077600 



EXPCTD=077400 
EXPCTD=077400 
EXPCTD=077400 
EXPCTD=077400 



RECVD=037600 
RECVD=037600 
RECVD=037600 
RECVD=037600 



ITTEN BY DRIVE 1 CANNOT BE READ * 
EXPCTD=077400 RECVD=077600 



RECVD=037600 
RECVD^-037600 
RECVD=037600 
RECVD=037600 
ITTEN BY DRIVE 1 CANNOT BE READ* 

EXPCTD=077400 RECVD= 177000 
RED DRIVE DECLARED DOWN ! I NOT TESTED! 



EXPCTD=077400 
EXPCTD=077400 
EXPCTD=077400 
EXPCTD^077400 



IN THE ABOVE EXAMPLE THE PROBLEM IS EXTREME. 
THE DRIVE WAS DECLARED DOWN DO TO CHECKSUM 
ERRORS • (TO SEE HOW THIS WAS DETERMINED SEE 
PARAGRAPH 9.7). NOTICE ALSO THE PROBLEM DID NOT 
START APPEARING UNTIL CYLINDER 7, AND WAS NOT 
FATAL UNTIL CYLINDER 57, AGAIN HEAD #1 WAS A 
COMMON FACTOR. 

********** 



9.10 COMPATIBILITY ERROR RECOVERY 

ALTHOUGH A UTILITY PACKAGE IS NOT A TRUE DIAGNOSTIC 
IT IS OF BENEFIT TO THE USER TO AT TIMES, BE ABLE 
TO MODIFY THE PROGRAM TO RECIEVE MORE INFORMATION OR 
CONTROL PARAMETERS 



1* THERE ARE TWO STRATEGICALY PLACED NO-OPS, 

WHICH IF CHANGED TO HALTS, MAY BE OF HELP TO 
' THE USER. ONE IS IN THE 1 EXECUTE 1 ROUTINE WHICH 
ALLOWS THE USER TO EXAMINE THE DISK ADDRESS, 
BUS ADDRESS, WORD COUNT AND CONTROL REGISTERS IN 
TEMPORARY LOCATIONS JUST PRIOR TO LOADING AND 
EXECUTION. THE SECOND IS IN THE ' ERRCHK 1 ROUTINE 
WHICH ALLOW THE USER TO EXAMINE THE RKER REGISTER 
BEFORE THE PROGRAM CORRECTS ANY ERRORS WHICH 
WHICH MAY HAVE OCCURRED. 

2. IF PLAGED BY CHECKSUM ERRORS AND THE USER WISHES 
MORE ERROR MAPING THEN HE MAY MODIFY THE 
MASK WORD AT LOCATION • ERRCHK+2* TO ONLY RECOGNIZE 
HARD ERRORS. 

3* TO INCREASE OR DECREASE THE NUMBER OF RETRYS ALLOWED 
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BEMJRE A DRIVE IS DECLARED DOWN f GO TO THE 

1 MOUNT 1 ROUTINE, MODIF* THE SETUP OF LOCATIONS 

«ECNT ! AND ! CNTSIN* AND YOU HAVE IT! 

4. IF THE USER DECIDES, SAY BECAUSE OF A 

LARGE NUMBER OF FAILURES, TO ALTER THE NUMBER 
OF PRINTOUTS PER SECTOR ON FAILURES { THE TYPE IN 
ERROR EXAMPLE 6 AND 7) HE MAY MODIFY THE SETUP 
OF 1 CHKCNT ' IN THE 1 RDCHK 1 ROUTINE* 



A FINAL LOOK; THE FOLLOWING SECTION SHOWS ALL PACKAGES 
CALLED IN SEQUENCE, NONE WITH ERRORS* 
RK1 1 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 

TYPE-0 

RK11 UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

■-RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE=1 

DRIVE NUMBERS ON SYSTEM 1x0.1 ♦ 3* 

IS THERE A SECOND SYSTEM7N 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 



WAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE ROY 

DONE! 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE=2 

OSCILLATING SEEK PACKAGE f WHICH DRIVE?0 

TOGGLE THE "FIRST CYLINDER ADDRESS" (OUTER LIMIT) 

INTO THE LOW BYTE (BITO-7) OF THE SWITCH REGISTER AND THE 

CYLINDER ADDRESS" (INNER LIMIT) INTO THE HIGH 

BYTE (BIT8-15) , THEN PRESS CONTINUE, 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 S 

HEAD ALIGNMENT ROUTINE 8 

TOWER FAILURE (WRITE) TEST 7 



TYPE=3 

FORMATTER-SURFACE VERIFIER, WHICH DRIVE?© 
PACK GOOD* 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABI LITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE=4 

RK05 CONTROL PANEL TEST, WHICH DRIVE?© 
iVIOUNT PACK ON DRIVE #0 

PLACE DRIVE IN RUN ; SHOULD SEE THE RUN, 
POWER, AND ON CYLINDER LAMPS LIGHT. 

MAKE DRIVE WRITE ENABLE PRESS CONTINUE 



WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 



CLEAR WRITE PROTECT THEN PRESS CONTINUE 



SEO 0021 



CAUTION! TRY TO OPEN THE DOOR , DO NOT FORCES 

DOOR SHOULD NOT OPEN! 

PRESS CONTINUE WHEN FINISHED 

PUT DRIVE IN LOAD f WAIT FOR LOAD LIGHT 
PRESS CONTINUE WHEN FINISHED 

OPEN THE DOOR, PUT DRIVE IN RUN 
CAUTIONS IF RUN LIGHT ON ERROR! DEPRESS 
LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 

REMOVE THE PACK , CLOSE THE DOOR 
PUT DRIVE IN RUN , DRIVE SHOULD NOT 
RUN* * . INTERLOCKS HAVE BEEN CHECKED 
DONE I 

RK11 UTILITY PACKAGE 
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000001 
160000 



00001 1 

000012 
000015 
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,177776 

177774 

177772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 
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000040 
000100 
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000200 
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TITLE MAINDEC-1 1-DZRKI-E 
♦COPYRIGHT (C) 1974,1977 
♦DIGITAL EQUIPMENT CORP. 
*MAYNARD , MASS. 01754 

* 

♦ PROGRAM BY .BOB COLLINS 



SEQ 0022 



♦THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDEC-1 1-DZ0AC-C3) , UAN 19, 1977. 



$TN = 1 

$SWR»1 60000 



; ;HALT ON ERROR, LOOP QH TEST , INHIBIT £3R0R TYPOUT 



{♦REVISED BY JIM KAPADIA 

{♦REVISED BY TOM SAWYER FEB 27, 1978 

{♦REVISED BY CHUCK HESS AUGUST, 1976 

.SBTTL BASIC DEFINITIONS 

; ♦INITIAL ADDRESS OF THE STACK POINTER 1100 ♦♦* 

STACK. 1100 

.EOUIV EMT , ERROR ; {BASIC DEFINITION OF ERROR CALL 

.EQUIV I OT, SCOPE r{BASIC DEFINITION OF SCOPE CALL 

{♦MISCELLANEOUS DEFINITIONS 

HT» 11 { J CODE FOR HORIZONTAL TAB 

LF= 12 {{CODE FOR LINE FEED 

CRs 15 ; {CODE FOR CARRIAGE RETURN 

CRLPs 200 f {CODE FOR CARRIAGE RETURN-LINE FEED 

PS« 177776 {{PROCESSOR STATUS WORD 

. EQUIV PS.PSW 
STKLMTp 177774 
PIRQ* 177772 
DSWR* 177570 
DDISPa. 177570 



{ {STACK LIMIT REGISTER 

| { PROGRAM INTERRUPT REQUEST REGISTER 

{{HARDWARE SWITCH REGISTER 

{ {HARDWARE DISPLAY REGISTER 



{♦GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 


xo 


'.GENERAL REGISTER 


R1® 


%1 


{GENERAL REGISTER 


R2« 


%2 


{GENERAL REGISTER 


R3= 


X3 


{GENERAL REGISTER 


R4* 


%4 


{GENERAL REGISTER 


R5» 


%5 


{GENERAL REGISTER 


R6* 


%6 


{GENERAL REGISTER 


R7» 


%7 


{GENERAL REGISTER 


SP» 


X6 


{STACK POINTER 


PD* 


%7 


{PROGRAM COUNTER 


; ♦PRIORITY LEVEL DEFINITIONS 


PRO 3 





{PRIORITY LEVEL 


PR1 = 


40 


{PRIORITY LEVEL 1 


PR2» 


100 


{PRIORITY LEVEL 2 


PR3* 


140 


{PRIORITY LEVEL 3 


PR4* 


200 


{PRIORITY LEVEL 4 


PR5« 


240 


J PRIORITY LEVEL 5 
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57 000300 PR6* 300 { {PRIORITY LEVEL 6 

58 000340 PR7« 340 ; { PRIORITY LEVEL 7 

59 , 

60 {*" SWITCH REGISTER" SWITCH DEFINITIONS. 

61 100000 SW15» 100000 

62 040000 SW14» 40000 

63 020000 SW13= 20000 

64 01 0000 SW12* 10000 

65 004000 SW1 1 « 4000 

66 002000 SW10* 20O0 

67 001000 SW09* 1000 

68 000400 SW08» 400 

69 000200 SW07* 200 

70 000100 SW06- 100 

71 000040 SW05* 40 

72 000020 SW04= 20 

73 000010 SW03* 10 

74 000004 SW02« 4 

75 000002 SW01'« 2 

76 000001 SWOOf 1 

77 .EQUfV SW09.SW9 

78 .EQUIV SW08.SWB 

79 . EQUIV SW07,SW7 

80 .EQUIV SW06,SW® 

81 .EQUIV SW05-,S^5 

82 .EQUIV SW04.SW4 

83 . EQUIV SW03.SW3 

84 .EQUIV SW02.SW2 

85 . EQUIV SW01 ,SW1 

86 .EQUIV SWOO.SWO 
87 

88 ; *DATA BIT DEFINITIONS (BXTOO TO BIT1S) 

89 100000 BIT15* 100000 

90 040000 BIT14= 40000 

91 020000 BIT13* 20000 

92 01 0000 BIT 12= 10000 

93 004000 BIT 11* 4000 

94 002000 BIT10* 2000 

95 001000 BIT09= 1000 

96 000400 BIT08* 400 

97 000200 BIT07* 200 

98 000100 BIT06* 100 

99 000040 BIT05* 40 

100 000020 BIT04* 20 

101 000010 BI?03«* 10 

102 000004 BIT02* 4 

103 000002 BIT01* 2 

104 000001 BITOO*. 1 

105 .EQUIV BIT09.BIT9 

106 .EQUIV BIT08.BIT8 

107 .EQUIV BIT07,BIT7 

108 .EQUIV BIT06.BIT6 

109 .EQUIV BITOS.BITS 

110 . EQUIV BIT04.BIT4 

111 .EQUIV BXT03.BXT3 

112 .EQUIV SITS2,BIT2 
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113 .EOUIV BIT01 ,BIT1 

114 .EOUIV BITOO.BITO 
115 

116 ?*BASIC "CPU" TRAP VECTOR ADDRESSES 

117 000004 ERRVEC* 4 ; ;TIME OUT AND OTHER ERRORS 

118 000010 RESVEC- 10 { ; RESERVED AND ILLEGAL INSTRUCTIONS 

119 000014 TBITVEC»14 { {"T" BIT 

120 000014 TRTVEC» 14 ; {TRACE TRAP 

121 000014 BPTVEC* 14 { {BREAKPOINT TRAP (BPT) 

122 000020 IOTVEC- 20 INPUT/OUTPUT TRAP (IOT) **SCOPE** 

123 000024 PWRVEC* 24 . ; ; POWER FAIL 

124 000030 EMTVEC" 30 ; ; EMULATOR TRAP ( EMI) **ERRQR** 

125 000034 TRAPVEC=34 { {"TRAP" TRAP 

126 000060 TKVECa 60 { ;TTY KEYBOARD VECTOR 

127 000064 TPVEC* 64 { {TTY PRINTER VECTOR 

128 000240 PIRQVEC»240 ; ; PROGRAM INTERRUPT REQUEST VECTOR 

129 .SBTTL TRAP CATCHER 
130 

131 000000 -«0 

132 ?*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A 8 .+2. HALT" 

133 {*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

134 {*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

135 000174 .=174 

136 000174 000000 DlSPREG: .WORD { {SOFTWARE DISPLAY REGISTER 

137 000176 000000 SWREG: .WORD {{SOFTWARE SWITCH REGISTER 

138 .SBTTL STARTING ADDRESS(ES) 

139 000200 000137 001434 JMP •fSTARTR { ; JUMP TO STARTING ADDRESS Of PROGRAM 

140 . 000210 .-210 

141 000210 112737 000377 0013t2 MOVB #377,»#M0DE 

142 000216 000137 001440 JMP ©OSTART 

143 .SBTTL ACT11 HOOKS 
144 

1 45 • J 

146 {HOOKS REQUIRED BY &GT11 

' 147 000222 SSVPC®. {SAVE PC 

148 000046 . .=46 

149 000046 001400 SENDAO J ; 1 ) SET L0C.46 TO ADDRESS OF $ENDAD M .SEQP 

150 000052 .»52 

151 000052 000000 .WORD § ; {2)SET L0C.S2 TO ZERO 

152 000222 »«$SVPC Jl RESTORE PC 
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COMMON 


TAGS 






153 






.SBTTL 


comoM 


TAGS 




154 
155 






• • «I W * 1^ **** * US®* ********** 


156 






;*THIS 


TABLE CONTAINS VARIOUS 


COMMON STORAGE LOCATIONS 


157 






;*USED 


IN THE PROGRAM. 




158 
159 




001100 




.8*1100 






160 


001 100 




$CMTAG: 






;; START OF COMMON TAGS, 


161 


001 100 


000000 


SPASS: 


.WORD 





M CONTAINS PASS COUNT 


162 


001 102 


000 


STSTNM: 


. BYTE 





; J CONTAINS THE TEST NUMBER 


163 


001 103 


000 


$ERFLGI 


. BYTE 





; ; CONTAINS ERROR FLAG 


164 


001 104 


000000 


SICNT: 


.WORD 





; {CONTAINS SUBTEST ITERATION COUNT 


165 


001 106 


000000 


SLPADR: 


.WORD 





; {CONTAINS SCOPE LOOP ADDRESS 


166 


001 1 10 


000000 


$LPERR: 


. WORD 





{ {CONTAINS SCOPE RETURN FOR ERRORS 


167 


001 1 12 


000000 


SERTTL: 


.WORD 





{{CONTAINS TOTAL ERRORS DETECTED 


168 


001 114 


000 


SITEMB: 


.BYTE 





{{CONTAINS ITEM CONTROL BYTE 


169 


0011 15 


001 


SERMAX: 


. BYTE 


1 


{ {CONTAINS MAX. ERRORS PER TEST 


170 


001 1 16 


000000 


SERRPC: 


.WORD 





| {CONTAINS PC OF LAST ERROR INSTRUCTION 


171 


001 120 


000000 


SGDADR: 


.WORD 





; {CONTAINS ADDRESS OF 'GOOD ' DATA 


172 


001122 


000000 


$BDADR: 


.WORD 





{{CONTAINS ADDRESS OF 1 BAD' DATA 


173 


001 124 


000000 


SGDDAT: 


« WORD 





{{CONTAINS 'GOOD' DATA 


174 


001 126 


000000 


SBDDAT: 


'.WORD 





{ { CONTAINS 8 BAD ' DATA 


175 


001130 


000000 




.WORD 





? {RESERVED— NOT TO BE USED 


176 


001132 


000000 




.WORD 







177 


001 134 


000 


SAUTOB: 


.BYTE 





{{AUTOMATIC MODE INDICATOR 


178 


001135 


000 


SINTAG: 


.BYTE 





S {INTERRUPT MODE INDICATOR 


179 


001 136 


000000 




.WORD 







180 


001 140 


177570 


SWR: 


.WORD 


DSWR 


} {ADDRESS OF SWITCH REGISTER 


181 


001 142 


177570 


DISPLAY: .WORD 


DDISP 


{{ ADDRESS OF DISPLAY REGISTER 


182 


001 144 


177560 


$TKSs 


177560 




% ?TTY KBD STATUS 


183 


001146 


177562 


$TKB: 


177562 




{ { TTY KBD BUFFER 


184 


001150 


177564 


$TPS: 


177564 




{ {TTY PRINTER STATUS REG. ADDRESS 


185 


001152 


177566 


$TPB: 


177566 




{{TTY PRINTER BUFFER REG. ADDRESS 


186 


001 154 


000 


SNULLS 


.BYTE 





{ {CONTAINS NULL CHARACTER FOR FILLS 


187 


001155 


002 


$FILLS: 


.BYTE 


2 


{ {CONTAINS ft OF FILLER CHARACTERS REQUIRED 


188 


001156 


012 


SFILLC: 


. BYTE 


13 


; {INSERT FILL CHARS. AFTER A "LINE FEED 8 


189 


001157 


000 


$TPFLG: 


.BYTE 





; {"TERMINAL AVAILABLE" FLAG ( BIT<07>«0«YES 


190 


001160 


077 


SQUES: 


.ASCII 


/?/ 


{ {QUESTION MARK 


191 


001161 


015 


SCRLF: 


.ASCII 


<15> 


; {CARRIAGE RETURN 


192 


001162 


000012 


SLF: 


.ASCII 


<12> 


{{LINE FEtiD 


193 








194 


001164 


000000 


DRACTV: 


. WORD 


' 


{ACTIVE DRIVE WORD 


195 
196 
197 


001166 


000010 


L0GA5 


, BLKV? 


1§ 


{ TABLE OF ACTIVE DRIVE WORDS 


198 


001206 


152525 


oaves 


.WORD 


152525 


{TABLE OF PATTERN ® TO DRIVE #'S 


199 


001210 


077777 




.WORD 


077777 




200 


001212 


000000 




.WORD 


QOOOOO 




201 


001214 


01 2345 




.WORD 


012345 




202 


001216 


125252 




.WORD 


125252 




203 


001220 


000001 




.WORD 


000001 




204 


001222 


177777 




.WORD 


177777 




205 


001224 


154320 




.WORD 


154330 




206 














207 


001226 


000010 


RDTBLX 


.BLKH 


10 


{TABLE OF READ ADDRESS 


208 


001246 


000004 


MSTBU 


»BUCW 


4 


{TABLE OP PARAMETERS FOR SYSTEM #2 
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SEO 0026 



209 












210 


001 256 


377 


msktbl: .BYTE 


377 


21 1 


001 257 






. BYTE 


177 


212 


001 260 


077 




• BYTE 


077 


213 


001 2b i 






. BYTE 


037 


214 


001 262 


017 




. BYTE 


017 


215 


001 263 


007 




. BYTE 


007 


216 


001 264 


003 




. BYTE 


003 


217 


001 265 


001 




. BYTE 


001 


218 












21 9 


001 266 


000 


BASE:' 


. BYTE 





220 


001 267 


050 




.BYTE 


50 


221 


001 270 


1 20 




.bVte 


1 20 


222 


001 271 


1 70 




. BYTE 


1 70 


223 


001 272 


240 




.BYTE 


240 


224 


001273 


303 




.BYTE 


303 












1 1 


226 


001 274 


00 00 1 i 


cyltbl: .81KB 


227 












228 


001 305 


000 


SECTBi: .BYTE 





229 


001 306 


004 




. BYTE 


4 


230 


001 307 


007 




.BYTE 


' 7 


231 


001 31 


013 




.BYTE 


13 


232 












233 


001311 


000 


DRCNT1 


.BYTE 





234 


001 31 2 


000 


MODE: 


. BYTE 





235 


001 313 




PRONUM: . BYTE 





236 


001314 


000 


DRIVE: 


. BYTE 





237 






CYLBAS* . BYTE 





238 


001 31 6 


nnn 


COMND: 


.BYTE 





239 


001 317 




WRTNBY: .BYTE 







001 320 


nnn 


HDRFLG: .BYTE 







001 321 


OOft 


ECNT : 


. BYTE 







001 322 


nnn 


CNTSIN 


.BYTE 







OOI 32o 


nnn 


TIMR2 : 


. BYTE 







001 324 


ntsn 


IDEX: 


.BYTE 





245 


001 325 


nnn 


STFLGf 


. BYT€ 







001 326 


000 


0SPFLGS .BYTE 





















00 1 JoO 




« EVEN 




249 














001 «3«SQ 


00 oouo 


KYTEMP 


.WORD 





251 


00 1'332 


AA AAAA 

000000 


C0NTRL 


.WORD 





252 


001 334 


000000 


DSKADR 


.WORD 





253 


001 336 


000000 


BUSADR 


.WORD 





254 


001 340 


AA AAAA 

000000 


WRDCNT 


.WORD 







001 342 


1 7 2000 


CYLCNT 


.WORD 


°*6000 


256 


00 1 344 




SECCNT 


.WORD 


—406 


257 


001 346 


A A AAAA 

000000 


TIMR: 


.WORD 





258 


001350 


000000 


CHKCNT 


.WORD 





259 


001352 


000000 


DSKTMP 


.WORD 





260 


001354 


004003 


WRITCS 


.WORD 


4033 


261 


001356 


000005 


READCS 


.WORD 


S 


262 


001360 


000000 


ERRFLG 


.WORD 





263 


001362 


000000 


PATTRN 


.WORD 





264 


001364 


177400 


RKDS! 


.WORD 


177400 



i TABLE OF CYLINDER BASE FOR AUTO MODE 



;CYL BASE CYLINDER ADDRESS 

;CYL 40 BASE CYLINDER ADDRESS 

;CYL BO BASE CYLINDER ADDRESS 

;CYL 120 BASE CYLINDER ADDRESS 

;CYL 160 BASE CYLINDER ADDRESS 

;CYL 195 BASE CYLINDER ADDRESS 

; TABLE OF SELECTED BASES 

; SECTOR 
I SECTOR 4 
; SECTOR 7 
I SECTOR 12 

; COUNT OF NUMBER OF DRIVES ON SYS. 1 

;IF -1 START 210 SELECTED 

;IF 1 PROCESSOR SELECTED 

5 DRIVE # UNDER TEST (MAN+AUTO MODE) 

; BASE SELECTED (MANUAL MODE) 

; IF WRITE COMMAND 

; DRIVE WHICH DID WRITE (READ OPERATION) 

J FLAG FOR ONE HEADER PRINTOUT 

; ERROR COUNTER 

; SEEK INCQM. COUNTER 

; SECOND PASS TIMER 

; CURRENT INDEX 



{TEMP. KEYBOARD BUFFER 

5 TEMP. CONTROL+STATUS WORD 

J TEMP. DISK ADDRESS WORD 

;TEMP. BUS ADDRESS WORD 

; TEMP. WORD COUNT 

;WORD COUNT OF 1 CYLINDER 

;WORD COUNT OF 1 SECTOR 

; TIMER FOR OPERATIONS 

; NUMBER OF ERROR PRINTOUTS 

; SAVE OF CURRENT DISK 

; IBA+WRITE+GO 

; READ+GO 

; ERROR FLAG INHIBIT ADDRESS CHANGE 
; DATA PATTERN 
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, 265 


001366 


177402 


RKER: 


. WORD 


177402 


266 


001370 


177404 


RKCS: 


.WORD 


177404 


267 


001372 


177406 


RKWC: 


. WORD 


177406 


268 


001374 


177410 


RKBA: 


.WORD 


177410 


269 


001376 


177412 


RKDA: 


.WORD 


17741 


270 


001400 


000000 


SENDAD: 


.WORD 





271 


001402 


000000 


SEEKi: 


.WORD 





272 


001404 


000000 


SEEKO: 


.WORD 





273 












274 




105212 


LFLF« 


105212 




275 


001406 


013700 


BA: 


BUFF 




276 


001410 


000000 


DA: 


.WORD 





277 


001412 


000000 


we: 


.WORD 





278 


001414 


013702 


RBA: 


RBUFF 




279 


001416 


000000 


RWC : 


.WORD 





280 


001420 


000000 


EXTR: 


.WORD 


9 


281 


001422 


000000 


ERRWF: 


.WORD 





282 


001424 


000000 


ERRRF : 


.WORD 


Q 


283 


001426 


000000 


ERRRFCt 


.WORD 





284 


001430 


000000 


ERRWCH: 


;word 





285 


001432 


000000 


ERRWCS: 


.WORD 


© 


286 












287 






;BIT DEFINITION! 




288 












289 




010000 


DPL*BIT12 




290 




000100 


RWS*BIT6 






291 




000040 


WPS«BIT5 






292 




. 001000 


SIN»BIT9 
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293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 

307 001434 

308 

309 

310 

311 

312 

313 



.SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*TH£ INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
♦LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT . 
*NDTE1 : IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

;*N0TE2: ' EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
DH 
DT 

OF 



-.POINTS TO THE ERROR MESSAGE 

; POINTS TO THE DATA HEADER 

{POINTS TO THE DATA 

; POINTS TO THE DATA FORMAT 



SERRTB: 

THE ERROR TABLE IS UNUSED IN THIS PROGRAM 

• ****************************** 
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ERROR POINTER TABLE 




314 


001434 


105037 


001312 




STARTRs 


CLR8 






315 


001440 


000005 






START : 


RESET 




; CLEAR THE BUS 


316 


001442 


012706 


001 100 






my 


#STACK,SP 




317 


001446 


01 2746 


000000 






MOV 


#0 f «»(SP) 


;SET UP STACK FOR P5W*0 


318 


001452 


012746 


001460 








#2$,~£SP) 


; RETURN FOR RTI 


319 


001456 


000002 








RT I 






320 


001460 


000240 






as: 


NOP 






321 










•SBTTL 


INITIALISE THE COMOM TAGS 


322 










; J CLEAR 


THE COKMON TAGS (SCMTAG) 


AREA 


323 


001462 


01 2706 


001100 






MOV 


#$OSTAG,R6 


J ; FIRST LOCATION TO BE CLEARED 


324 


001466 


005026 








CLR 


(R6)+, 


; ; CLEAR MEMORY LOCATION 


325 


001470 


022706 


001 140 






CMP 


#SWR,R6 ; jOONE? 




326 


001474 


001374 








BNE 


.-6 


; ; LOOP BACK I F NO 


327 


001476 


012706 


001 100 






MQ\f 


#STACK,SP 


; ; SETUP THE STACK POINTER 


328 










ISXNITXALI2E A 


FEW VECTORS 




329 


001502 


012737 


024230 


000034 




MOV 


f STRAP, WTRAPVEC 


TRAP' VECTOR FOR TRAP CALLS 


330 


001510 


012737 


000340 


000036 




MOV 


*340,*#TRAPVEC+2; LEVEL 7 


331 


001516 


012737 


024310 


000024 




&5GV 


#$PWRDN,@#PWRVE€ 


; I POWER FAILURE VECTOR 


332 


001524 


012737 


000340 


000026 




MOV <¥340,@#PWRVEC+2 


J ; LEVEL 7 


333 










IISI2E 


FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


334 










ISEOUAL 


TO A »*- 


1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


335 


001532 


013746 


000004 






&1QV 


P#ERRVEC,-(SP) 


? 5 SAVE ERROR VECTOR 


336 


001536 


012737 


001572 


000004 




MOV 


#64&,@#ERRV£C 


; ; SET UP ERROR VECTOR 


337 


001544 


01 2737 


177570 


001140 




my 


ZQSW! , SWR 


5 J SETUP FOR A HARDWARE SWICH REGISTER 


338 


001552 


01 2737 


177570 


001142 




my 


#DDISP, DISPLAY 


; | AND A HARDWARE DISPLAY REGISTER 


339 


001560 


022777 


177777 


1 77352 




m? 


#™1 ,f!SWR 


; ; TRY TO REFERENCE HARDWARE SWR 


340 


001566 


001012 








BHE 


m$ 


; ; BRANCH IF NO TIMEOUT TRAP OCCURRED 


341 
















; ; AND THE HARDWARE SWR IS NOT * -1 


342 


001570 


000403 








BR 


SBS 


; ; BRANCH IF NO TIMEOUT 


343 


001572 


012716 


001600 




64$: 


my 


M5$, (SP) 


; ?S£T UP FOR TRAP RETURN 


344 


001576 


000002 








RTI 






345 


001600 


01 2737 


000176 


001 140 


65$ ! 


mv 


0SWREG.SWR 


; ; POINT TO SOFTWARE SWR 


346 


001606 


012737 


000174 


001142 




may 


0DISPREG, DISPLAY 




347 

348 


001614 


012637 


000004 




66$ *. 


my 


(SPJ*,W£R?SVEe 


SI-RESTORE ERROR VECTOi 


349 


001620 


004737 


022746 






asR 


PC.STKINT 


? INITIALIZE THE TTY INTERRUPT HANDLES 


350 










.SBTTL 


TYPE PROGRAM HAME 




351 










JlTYPE 


THE NAME 


OF THE PROGRAM IF FIRST PASS 


352 


001624 


005227 


177777 






INC . 


#-1 


IS FIRST TIME? 


353 


001630 


001045 








BHE 


67$ 


; | BRANCH IF NO 


354 


001632 


104401 


001670 






TYPE 




1 5 TYPE ASCII STRIMB 


35§ 










.SBTTL 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


356 


001636 


005737 


000042 






TST 


m42 


; ; ARE WE RUNNING UNDER XXDP/ACT? 


357 


001642 


001006 








BNE 


®iS 


| ; BRANCH IF YES 


358 


001644 


023727 


001140 


080178 




CMP 




; ; SOFTWARE SWITCH REG SELECTED? 


359 


001652 


001005 








BNE 


70$ 


; ; BRANCH IF NO 


360 


001654 


104405 








Q1SW 




5 5 GET SOFT-SWR SETTINGS 


361 


001656 


000403 








SB 


?m 




362 


001660 


112737 


000001 


©©1134 


69$: 


MOVB 


#1 ,$AUT0B 


? ; SET AUTO-MODE INDICATOR 


363 


001666 








?0$: 








364 


001666 


000426 








BR 


m 


: {GET OV6S3 THE ASCII 


365 










5 j 60$ : 


.ASCII 


<mi¥>/nM1 UTILITY MCKASI/«1SXI2>/W»DgC-11'»OZRKI'»g/<SRLF> 


366 


001744 
















367 


001744 


105737 


001312 






TSTS 






36B 


001750 


100002 








SPL 


1S 




369 


001752 


000137 


0034S2 






MP 







SEQ 0030 



370 


00 1 756 


1 05737 


001 325 


371 


001 762 


00 1 402 




372 


001 764 


0001 37 


002554 


373 


001 770 


1 05237 


001 325 


374 


001 774 


1 05037 


00 1 326 


375 


002000 


1 04401 


002006 


376 


002004 


000423 




377 








378 


002054 






379 


002054 


1 04401 


002062 


380 


002060 


000421 




381 








382 


0021 24 






383 


0021 24 


1 04401 


0021 32 


384 


0021 30 


000421 




385 








386 


0021 74 






387 


0021 74 


1 04401 


002202 


388 


002200 


000421 




389 








390 


002244 






391 


002244 


1 04401 


002252 


392 


002250 


000421 




393 








394 


00231 4 






395 


00231 4 


1 04401 


002322 


396 


002320 


000421 




397 








398 


002364 






390 


002364 ; 


1 04401 


fl ft fi *B i*l 

002372 


400 


002370 ' 


■ 000421 




401 








402 


002434 






403 


002434 


1 04401 


002442 


404 


002440 


000421 




405 








406 


002504 






407 


002504 


1 04401 


002512 


408 


00251 


000421 




409 








410 


002554 






41 1 


002554 






412 


002554 


1 04401 


002562 


413 


002560 


000405 




414 








415 


002574 






416 


002574 


1 0441 1 




417 


002576 


01 2600 




418 


002600 


022700 


00001 




002604 


Aft oyi A*3 




420 


002606 


006100 




421 


002610 


000170 


002622 


422 


002614 


104401 


001160 


423 


002620 


000755 




424 








425 









10$: 

STRT1 S 



! ; 65$ : 

64$: 



; ;67$: 

66$: 



5 ;69$s 
68$: 



;;71$: 
70$: 



;;73$: 

72$: 



;;75$: 

74$ % 



; ;77$: 

76$ s 



; ;79$: 

78$: 



; ;81$: 

80$: 

tablty: 



; ;65$: 
64$: 



TSTB 

BEQ 

JMP 

INCB 

CLRB 

TYPE 

BR ' 

.ASCII 

TYPE 
BR 

.ASCII 

TYPE 

BR 

.ASCII 

TYPE 
BR 

; ASCIZ 

TYPE 

BR 

.ASCII 

TYPE 
BR 

.ASCII 

TYPE 
BR 

.ASCII 

TYPE 

BR 

.ASCI2 

TYPE 
BR 

.ASCII 



TYPE. 
BR 

.ASCIZ 

RDOCT 

MOV 

CMP 

8LE 

ROL 

JMP 

TYPE 

BR 



STFLG 
10$ 
TABLTY 
STFLG 

OSPFLG 

,65$ ; ;TYPE ASCIZ STRING 

64$ J J GET OVER THE ASCIZ 

<15><12><15><12>/ NAME 



; PRINT ONLY THE FIRST TIME 



,67$ 
66$ 

<15X12>/INDEX 



; ; TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 



0/ 



,69$ ; ; TYPE ASCIZ STRING 

68$ ? ;GET OVER THE ASCIZ 

<15><12>/C0MPATIBILITY PACKAGE 1/ 

,71$ ; ; TYPE ASCIZ STRING 

70$ ;:GET OVER THE ASCIZ 

«15X12»/0SCILLATING SEEK PACKAGE 3/ 

,73$ JJTYPE ASCIZ STRING 

72$ ; J GET OVER THE ASCIZ 

<15X12>/F0RMATTER-SURFACE VERIFIER 3/ 

,75$ ; J TYPE ASCIZ STRING 

74$ ; JGET OVER THE ASCIZ 

<15X12>/RK05 CONTROL PANEL TEST 4/ 

,77$ J ; TYPE ASCIZ STRING 

78$ » J GET OVER THE ASCIZ 

<15><12>/RK05 CONTROL PANEL TEST #2 5/ 

,79$ ; ; TYPE ASCIZ STRING 

78$ ; l-GET OVER THE ASCIZ 

<15X12>/H£A0 ALIGNMENT ROUTINE «/ 

,81$ I J TYPE ASCIZ STRING 

80$ ; ; GET OVER THE ASCIZ 

<15X12>/P0WER FAILURE (WRITE) TEST 7/ 



,65$ ; ; TYPE ASCIZ STRING 

64$ ; ;GET OVER THE ASCIZ 

<1 5X1 2X1 5X1 2>/TYPE=/ 



TYPE/ 



(SP)+,R0 
#10, RO 
NG 
RO 

fSBEGIN(RO) 

,$QU£S 
TABLTY 



; GET THE TEST NUMBER FROM THE OPERATOR 
; STORE IT IN RO 
;VALID NUMBER ? 
*, BR IF NOT 

; ALIGN THE NUMBER FOR DISPATCHING 
;GO TO THE SELECTED TEST 
; •?• 



j TEST ENTRY DISPATCH TABLE 
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SEQ 0031 



426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 



002622 
002624 
002626 
002630 
002632 
002634 
002636 
002640 



001774 
002642 
010370 
012002 
013772 
017300 
020634 
021544 



STRT1 
SECT. 3 

SECT. a 
SECT. 1 
SECT.O 

SECT. 4 
SECT. 5 

SECT. 8 



. SBTTL COMPATIBILITY TEST 



; ROUT WE TO PICK UP THE DRIVE NUMBER TO BE TESTED 
;0N SYSTEM 1. 



002642 000240 
002644 

002644 104401 

002650 000415 

002704 

002704 104401 

002710 000417 



002750 
002750 
002752 
002754 
002760 
002764 
002770 
002774 
003002 
003004 
003012 
003014 
003020 
003022 
003026 
003030 
003034 
003040 
003042 
003046 



SECT. 3: 
AUTSL2: 



f |6S$S 
84$: 



;;67$: 

86$ " 



% NO-OP 

TYPE ,85$ | ; TYPE ASCIZ STRING 

BR 64$ | ; GET OVER THE ASCIZ 

.ASCIZ <TS»<1,2>/TIER$1XWATE WITH l .<CR> 1 / 

TYPE ,67$ ;;TYPE ASCIZ STRING 

BR 66$ Vi GET OVER THE ASCIZ 

.ASCIZ <15X12>/0RZVE NUMBERS ON SYSTEM W 



104410 








RDLIN 




01 2600 








MOV 


(SPH.R© 


012701 


001166 






MOV 


#LOGA,R1 


105037 


001311 






CLRB 


MFDRCNT1 


005037 


001330 




1$: 


CLR 


«KYTEMP 


1 1 2037 


001330 






MOVB 


(R0)+,##KYTEft3P 


122737 


000054 


001330 




CMPB 


#54,»*KYTEMP 


001770 








BEQ 


1$ 


162737 


000060 


001330 




SUB 


#60,9#KYTEMP 


100403 








BM 


US 


004737 


004072 






dSR| 


PC, STORE 


000761 








BR 


11 


122740 


000056 




2$s 


CMPB 


#58,~{RQ) 


001402 








BEQ 


3$ 


004737 


004142 






JSR 


PCIIEGAL 


022701 


001206 




3$s 


CMP 


#DRV0,R1 


001403 








SEQ 


SECSYS 


012721 


100000 






mv 


#100000, CfHH 


000772 








BR 


3$ 



;PICK UP THE ADDRESS OF THE INPUT SUFFER 
I GET THE ADDRESS OF THE LOGICAL UNIT TBL» 
; CLEAR THE DRIVE COUNTER . 
; CLEAR TEMP 

5 GET THE FIRST DRIVE # 

;IS IT A COMMA THAT WAS TYPED? 

', I F YES GO BACK 

; MAKE ASCII A DRIVE # 

;IF RESULT NEGATIVE BRANCH 

;IF RESULT POSITIVE UUMP 

| AFTER STORING GET NEXT # 

;«AS NEGATIVE RESULT A TERMINATOR? 

; IF YES BRANCH 

I IF NO BAD CHARACTER UUWP 

;IS THE TABLE FULL 

| IF YES BRANCH _ 
•IF NO FILL TABLE WITH DOWN INDICATOR. 
;GO BACK AND CHECK 



; ROUTINE TO DETERMINE IF THERE IS A SECOND 
; SYSTEM AND If SO TO GET THE WJUBER OF THE 
; DRIVE ON THIS SYSTEM 



003050 
003050 

0030S4 



104401 
000416 



0031 12 

003112 00M40 



SECSYS S 

TYPE 

BR 

f|8S$3 » ASCII 
84$ s 

MOP 



,85$ 5 j TYPE ASCIZ STRING 

64$ % {SET OVER THE ASCIZ 

<1BX1 a»/tB THlil k SECOND SYSTEM?/ 



MAlNDEC 


-1 1 -DZRKI 


-E 


MACY1 1 


DZRKI F . 


P1 1 24-MAR-78 


09:20 


483 


0031 14 


104407 




483 


0031 16 


012637 


001 330 


484 


003122 


104401 


001330 


485 


003126 


022737 


000131 


486 


003134 


00141 1 




487 


003136 


022737 


0001 16 


488 


003144 


001460 




489 


003146 


104401 


003154 


490 


003152 


000401 




49t 








492 


003156 






493 


003156 


000734 




494 


0031 60 


152737 


000377 


495 


003166 


000240 




496 


003170 


104401 


003170 


497 


0031 74 


000406 




498 








499 


003212 






500 


003212 


104407 




501 


003214 


01 2637 


001330 


502 


003220 


104401 


001330 


503 


003224 


162737 


000060 


504 


003232 


100420 




505 


003234 


022737 


000010 


506 


003242 


003414 




307 


003244 


000337 


001 330 


508 


003250 


052737 


040000 


509 


003256 


1 1 3705 


00131 1 


510 


003262 


006105 




51 1 


003264 


013765 


001330 


512 


003272 


000407 




513 


003274 






514 


003274 


104401 


003302 


515 


003300 


000401 




516 








51 7 


003304 






518 


003304 


000725 




519 


003306 


105037 


001313 


520 








521 








522 








523 


003312 


012700 


001 166 


524 


003316 


105037 


001324 


525 


003322 


000405 




526 








527 


003324 


062700 


000002 


528 


003330 


022700 


001206 


529 


003334 


001414 




530 


003336 


005710 




531 


003340 


100001 




532 


003342 


000770 




533 


003344 


01 1037 


001 164 


534 


003350 


004737 


004174 


535 


003354 


004737 


005104 


536 


003360 


004737 


005632 


537 


003364 


000757 





) 24-MAR-78 09:23 

COMPATIBILITY TEST 



SEQ 0032 



001330 
001330 



; ;67$: 

66$: 



001313 PR02: 



64$; 



001330 
001330 

001330 

001 tss 



ROCHR 

MOV 

TYPE 

CMP 

BEQ 

CMP . 

SEQ 

TYPE 

BR 

.ASCII 
BR 

BISB 
NOP 

TYPE 
BR 

. ASCI2 

ROCHR 

MOV 

TYPE 

SUB 
BMI 

gmp 

BLE 

SWAB 

BIS 

MOWS 

ROL 

MOV 

BR 



;?65$* 
64$3 



(SP)+,»#KYTEMP 

f KYTEMP 

#131 , IMKYTEMP 
PR02 

#ii6,wkytemp 

PR01 

,67$ 

66$ 

/?/ 

SECSYS 

#377,*#PR0NUM 

,65$ 
64$ 



; READ A CHARACTER 
; GET THE RESPONSE 
JECHO 

J WAS IT A S Y S (FOR YES)? 

{ IF YES BRANCH TO PROCESSOR 2 

;WAS RESPONSE LEGAL (H FOR NO)? 

;IF LEGAL BRANCH 

JJTYPE ASCIZ STRING 

; ; GET OVER THE ASCIZ 



5 GO BACK ASK AGAIN 
SET FLAG TWO PROCESSORS 



<1 5><12>/DRIVE # 



[TYPE ASCIZ STRING 
! GET OVER THE ASCIZ 



(SP)+,*# KYTEMP 

, KYTEMP 

#60,@#KYTEMP 

BADINP 

#10,##KYTESy$P 

BADINP 

@#KYTEMP 

*SfBITl4,MKYTE«* 

##DRCNT1 ,R5 

R5 

*#KYT£MP,LOGA(R5 
GO 



TYPE 


,65$ 


BR 


64$ 


.JSC 1 2 


/?'/ 


BR 


PR02 


CLRB 


fiWPRONUM 


S THE ACTUAi PROGRAM 


MOV 


#LQ6A,R0 


CLRB 


WXDEX 


BR 


G02 


ADD 


#2 , RO 


CMP 


*drvo,ro 


BEQ 


mu 


TST 


(RO) 


BPL 


603 


BR 


G01 


MOV 


(R0),##DRACTV 


JSR 


PCVCYCLE 


JSR 


PC.WRLINK 


JSR 


PC.ROUXNK 


BP? 


601 



; READ A CHARACTER 

;PICK UP THE RESPONSE 
;ECHO 

;MAKE IT A NUMBER 

;IF NOT A NUMBER, BRANCH 

5 IS IT A LEGAL 0? 

; I F NO BRANCH 

J GET THE DRIVE (? TO THE HIGH BYTE 

t SET THE SECOND SYSTEM BIT 

; GET THE DRIVE COUNT 

J MAKE IT AN INDEX 

) {STORE THE SYSTEM 02 WORD 

? GO DO THE TEST 

? {TYPE ASCIZ STRING 

? I GET OVER THE ASCI Z ■ 



;GO BACK ASK AGAIN 

? CLEAR THE FLAG ONE PROCESSOR 



', GET THE TABLE ADDRESS TO RO 
JCLRB THE INDEX 

; BRANCH AROUND INCREMENT ROUTINE 



; INDEX THRU THE TABLE 
DONE? 

IF YES GET OUT 

IS THE DRIVE ACTIVE 

IF YES BRANCH 

NO TRY THE NEXT ONE 

PICK UP THE ACTIVE DRIVE WORD 

CALL CYCLE (PICK UP DRIVE #, CYL BASE, AND CALL MOUNT) 
CALL WRITE LINK TO LOAD REGISTERS FOR WRITE 
CALL READ LINK TO LOAD REGISTERS FOR READ 

GO GET HEM DRIVE 



MAINDEC 


-11-DZRKI 




DZRKI F. 


P1 1 24 


-MAR-7B 


538 


003366 


01 2700 


539 


003372 


022700 


540 


003376 


001414 


541 


003400 


032710 


542 


003404 


00101 1 


543 


003406 


005720 


544 


003410 


100770 


545 


003412 


01 4001 


546 


003414 


004737 


547 


003420 


004737 


548 


00.3424 


005720 


549 


003426 


000761 


550 


003430 




551 


003430 


104401 


552 


003434 


000404 


553 






554 


003446 




555 


003446 


000137 


556 






557 






558 






559 






560 


003452 




561 


003452 


104401 


562 


003456 


000415 


563 






564 


003512 




565 


003512 . 


012704 


566 


003516 


012703 


567 


003522 


012702 


568 


003526 




569 


003526 


104401 


570 


003532 


000405 


571 






' 572 


003546 




573 


003546 


000240 


574 


003550 


01 0346 


575 


003552 


104403 


576 


003554 


006 


577 


003555 


000 


578 


003556 


104401 


579 


003562 


000401 


580 






581 


003566 




582 


003566 


104411 


583 


003570 


012600 


584 


003572 


1 10001 


585 


003574 


000300 


586 


003576 


042700 


587 


003602 


042701 


588 


003606 


006000 


589 


003610 


103003 


590 


003612 


052700 


591 


003616 


000241 


592 


003620 


006001 


S93 


003622 


103002 



MACY11 30A(1052) 24-MAR-7B 09? 23 

09:20 COMPATIBILITY TEST 



001 166 


EMITS 


may 


0LOGA , RO 


001206 


EXTFR8: 


CMP 


#DRV0,R0 






BEQ 


EXITX 


040005 




BIT 


#BIT14,(R0) 






BNE 


EXITX 






TST 


(RO)* 






BM1 


EXTFR2 






MOV 


-(R0),R1 


004250 




iJSR 


PC, 002 


005632 




USR 


PC, RD LINK 






TST 


(R0) + 






BR 






EKITXS 






003436 




TYt*£ 


,8S$ 






BR 


84$ 




?;65$: 


. ASCIZ 


<ts><i2>/mmt/ 










001440 




dMP ' 


msrmr 



f ? TYPE ASCIZ STRING 

% ; GET OVER THE ASCIZ 



I THIS IS* PROCESSOR $2 CODE. THIS ROUTINE ASKS FOR MQ UNPACKS THE CONTROL, 
;WORDS FROM % I RST" PROCESSOR'. 



;;65$: 
64$ i 



;;65$: 

64$: 



?;67$i 
SSI- 



TYPE ,65$ 1 ; TYPE ASCIZ STRING 

BR 64$ ; ;GET OVER THE ASCIZ 

.ASCII <1 S><1 2>/COMPAT2 BI LI7Y-SYSTEM02/ 



;SET UP MASK BIT IN R4 

5 SET UP WORD COUNTER IN R3 

| GET THE TABLE ADDRESS 



MOV 


#200, R4 


MQV 


#1 ,R3 


MOV 


0l.oga;r2 


TYPE 


,65$ 


BR 


64$ 


. ASCIZ 


<15><13>/WC 


NOP • 




MOV 


R3,-(5P) 


TYPOS 




.BYTE 


6 


.BYTE 





TYPE 


,67$ 


BR 


66$ 


.ASCIZ 


/«/ 


RDOCT 




MOV 


(sp)+,ro 


MOV 8 


R0.R1 


SWAB 


RO 


BIC 


« 177400.R0 


BIC 


#1 77400 ,R1 


ROR 


RO 


BCC 


a$ 


BIS 


#bit7,ro 


CLC 




ROR 


m 


BCC 


u 



? ; TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 



j GET HEADY TO TYPE mm COUNTER 



JITYPE ASCIZ STRING 
? I GET OVER THE ASCIZ 



PICK UP THE OCTAL WORD 

GET THE FIRST DRIVE TO R1 

GET THE SECOND DRIVE TO RO LOW BYTE 

CLEAR THE UNUSED BITS 

CLEAR THE UNUSED BITS 

ROTATE RIGHT RO 

IF CARRY IS CLEAR BRANCH 

SET DOW BIT IF CARRY SET 

AMD CLBAft THE CARRY BIT 

mu do the same for m 

IF W ERROR » BRANCH 



MAINDEC-11-DZRKI-E MACY11 30A(1QS2) 24-MAR-78 00:23 PAGE 14 

DZRKIF . P1 1 24-MAR-78 09:20 COMPATIBILITY TEST 



SEQ 0034 



594 


003624 


052701 


000200 




BIS 


#BIT7,R1 


595 


003630 


11 0162 


000001 


3$t 


MOVB 


R1 ,1(R2) 


596 


003634 


004737 


004030 




JSR 


PC, MASKER 


597 


003640 


1 1 0062 


000001 




MOVB 


R0,1(R2) 


598 


003644 


004737 


004030 




JSR 


PC, MASKER 


599 


003650 


005203 






INC 


R3 


600 


003652 


000725 






BR 


INSYS2 


601 


003654 


050412 




exita: 


BIS 


R4,(R2) 


602 


003656 


006004 






ROR 


R4 


603 


003660 


103375 






BCC 


EXITA 


604 


003662 


042712 


174000 


EXITS'. 


BIC 


#174000,(82) 


605 


003666 


01 0200 






MOV 


R2,R0 


606 


003670 


005722 






TST 


(R2) + 


607 


003672 


022702 


001206 


Fit. DNS 


CMP 


#DRV0 e R2 


608 


003676 


001403 






BEO 


2$ 


609 


003700 


012722 


100000 




MOV 


0BIT15, (R2)+ 


610 


003704 


000772 






BR 


FIL.DN 


611 


003706 


01 1001 




2$i 


MOV 


(R0),R1 


612 


003710 


1 1 0102 






MOVB 


R1 ,R2 


613 


003712 


004737 


005234 




JSR 


PC, MASK 


614 


003716 


004737 


004250 




JSR 


PC, 002 


615 


003722 


004737 


005104 




JSR 


PCWRLINK 


616 


003726 


004737 


005632 




JSR 


PC , RDLINK 


617 


003732 


104401 


003740 




TYPE 


,65$ 


618 


003736 


000427 






8R 


64$ 


619 








;;6S|5 


.ASCII 


<!5><12>/00M6 


620 


004016 






84$; 






621 


004016 


01 1046 






10V 


(RO).-(SP) 


622 


004020 


104403 






TYPOS 




623 


004022 


006 






. BYTE 


8 


624 


004023 


001 






. BYTE 


1 


625 


004024 


000000 




1$: 


HALT 




626 


004026 


000776 






BR 


1$ 


627 














628 








{THIS ROUTINE « 


JETS UP THE NASI 


629 








; SYSTEM 
SIS SHl 


#2, IF 


fa DRIVE IS 0OW5 


630 








FTED. 




631 














632 


004030 


005712 




MASKERS 


TST 


(R2) 


633 


004032 


100401 






BUI 


RETRN4 


634 


004034 


11 0412 






»va 


R4,(R2) 


635 


004036 


006004 




RETRN4: 


ROR 


R4 


636 


004040 


103003 






BCC 


1$ 


637 


004042 


01 2716 


003662 




MOV 


fEXITB, (SP) 


638 


004046 


000207 






RTS 


PC 


639 


004050 


032712 


040000 


i$: 


BIT 


#BIT14,C^a) 


640 


004054 


001403 






BEO 


2$ 


641 


004056 


01 2716 


003654 






#EXSTA,CSP) 


642 


004062 


000207 






ms 


PC 


643 


004064 


062702 


000002 


S$: 


ADD 




644 


004070 


000207 






UTS 


pe 


645 














646 








: ROUTINE TO BUILD THE ACTIVE I 


647 














648 


004072 


022737 


000010 001331 


a STORE: 


CWP 


#1O v 0ffKYTEMP' 


649 


004100 


000240 






MOP 





; IF ERROR SET THE BIT 

;SET DRIVE FIRST IN TABLE 

-.CALL THE MASK CONTROL SUBROUTINE 

{SET DRIVE SECOND IN TABLE (NEXT WORD 

; CALL THE MASK CONTROL SUBROUTINE 

; INCREMENT THE WORD COUNTER 

?G0 BACK AND GET NEXT WORD 

J FILL THE TABLE (LAST WORD) 

JWITH ALL BITS SET 

? GO BACK IF NOT DONE 

{CLEAR DOWN AND SECOND SYSTEM BITS AT 
{ GET ADDRESS TO RO (CURS£NT TABLE) 
J ADD 2 TO THE POINTER 
{ TABLE FULL? 
JIF YES BRANCH 
;FILL THE TABLE 
JGO BACK TRY AGAIN 
J GET THE WORD TO R1 



J FORM DRIVE » FOR MOUNT 
; WRITE NEW INFO 
i READ SAMPLE (ALL DRIVES) 
• J TYPE ASCIZ STRING 
tGET OVER THE ASCIZ 

a RESTART SYSTEM 1 s T 



SYSTEM 



J GET WORD FOR SYSTEM 1 AND TYPE 



{HALT (FINISHED SYSTEM #2) 
;G0 BACK TO HALT 



JIS THE DRIVE UP 
{IF NO, BRANCH 

{MOVE THE MASK BIT IN THE TABLE 
; ROTATE THE MASK 
; DONE?, IF NO, BRANCH 
{SET UP FOR RETURN 

I IS THIS SYSTEM 2'S DRIVE? 

{IF NO, BRANCH 

5 SIT UP FOR RETURN 

J INDEX THRU LOGA TABLE 
{ RETURN 



?IS INPUT A LEGAL 



MAINDEC-1 1-DZRKI-E MACY11 30A(10S2) 

DZRKIF.P11 24-MAR-78 09:20 C 



24~MAR~78 09: 23 
3MPATI8ILITV TEST 



PAGE IS 



SEQ 0035 



650 
651 

652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 



004102 
0041 04 
0041 1 
0041 14 
004120 
004124 
0041 30 
004132 
004134 
004140 
004142 
004146 
004152 

004172 
004172 



003417 
000337 
01 3721 
005037 
105237 
022701 
001401 
000207 
012716 
000207 
012716 
104401 
000407 



001330 
001330 

001330 
001311 
001206 



002644 

004154 



672 


004174 


01 1001 




673 


0041 76 


032701 


040000 


674 


004202 


001402 




675 


004204 


000137 


006752 


676 


004210 


113703 


001324 


677 


004214 


1 16302 


001256 


678 


004220 


004737 


005234 


679 


004224 


012703 


001166 


680 


004230 


020003 




681 


004232 


001002 




682 


004234 


050223 




683 


004236 


000401 




684 


004240 


040223 




685 


004242 


022703 


001206 


686 


004246 


001370 




687 


004850 


000301 




6.88 


004252 


000240 




689 


004254 


110102 




690 


004256 


042702 


000370 


691 


004262 


1 1 0237 


001314 


692 


004266 


006102 




693 


0042/0 


006102 




694 


004272 


006102 




695 


004274 


006102 




696 


004276 


006102 




69? 


004300 


110237 


001353 


698 


004304 


110237 


001335 


699 


004310 


004737 


004316 


700 


004314 


000207 




701 








702 


004316 


105237 


001324 


703 


004322 


000240 




704 


004324 


1 1 2737 


000005 


705 


004332 


1 1 2737 


000003 





BLE 


1 LEGAL 


JIF NOT BRANCH 






SU)A§ 


WKVTEMP 


; ALIGN DRIVE # FOR TABLE 
J PUT THE WORD IN THE TABLE 






MOV 


#*KYTEMP,(fM) + 






CLR 


@#KYTEMP 


I CLEAR THE TEMP WORD 






INCB 
CMP 


MDRCNT1 

#DRV0,R1 


{INCREMENT THE COUNTER 
;IS THE TABLE FULL? 






BEO 
RTS 


TBLFUL 
PC 


J IF YES BRANCH 
;IF NO RETURN 




TBLFULS 


MOV 


0S£CSYS,(SP) 


; IF TABLE FULL SET UP FOR SYS 


5TE1 #2 




UTS 


PC 


{RETURN 




I LEGAL: 


MOV 


#AUTSL2,(SP) 


{ IF ILLEGAL RESPONSE, 60 BAG* 


i 




TYPE 


,63$ 


{ {TYPE ASCIZ STRING 






Sf? 


64$ 


{ {GET OVER THE ASCIZ 






.ASCII 


/ILLEGAL INPUT/ 






84$: 












RTS 


PC 


{RETURN 





{THI$ ROUTINE GETS A DRIVE » AND BUILDS A TABLE OF 
{CYLINDER ADDRESS FOR USE BY WRITE, (RO-)*ADDRESS 'OF ACTIVE 
{WORD m LOGICAL TABLE, IT ALSO SETS AND CLEARS THE MASK BITS 
{OF THE TABLE AS OPERATIONS INDICATE 



CYCLES 10V 
BIT 



CYCL2 : MOVB 

10VS 
CYCLES: JSR 
LDFIG: MOV 

2S: CUP 



3$: 
4$: 



002: 



BIS 

BR 

BIC 

CMP 
8NE 

IT 

MVS 

BIC 

MOVB 

ROL 

ROL 

ROL 

ROL 

ROL 

WVB 

MOVB 

JSR 

RTS 

INCS 
NOP 



(RO).Ri . 
#B1T14,R1 

CYCL2 

WSECONE 

W10EX.R3 

MSKTBL(R8),Aa 

PC, MASK 

#L0GA,R3 

R0 5 R3 

3$ 

R2,(R3)+ 

4$ 

R2,{R3)* 
#DIV0,R3 

2$ 

m 

ri,R2 

0370, R2 

R2,##DR2VE 

R2 

R2 

R2 

R2 

R2 

R2,#>#DSKTS8P«M 
R2.WDSKA0SH1 
PC, MOUNT 
PC 

@#IDEX 

#§ f WECNf 
*3',»«CNTSXN 



{GET THE LOGICAL UNIT ACTIVE ' 

US I 



to m 

IT OH SYSTEM #2 
{IF NO BRANCH 
{GO TO SYSTEM #2 
{GET THE INDEX VALUE 
{GET THE MASK TO R2 
{CALL THE MASK SUBROUTINE 
{GET TABLE ADDRESS TO R3 
{ IS ACTIVE ADDRf SS»TO FIRST ADDRESS 
{IF NO BRANCH 

{IF YES SET BITS TO SHOW SsfRITE 
{ BRANCH TO SEE IF DONE 
{CLEAR BITS TO SHOW OVER-WRITE 
{ DONE 

{IF NO GO BACK 

S&E? DRIVE # TO \m §Y?1 
{**«. 

{GET IT TO R2 
{CLEAR THE UNUSED BITS 
{GET THE DRIVE # 
{SHIFT THE DRIVE # TO 
{ALIGN IT FOR THE DRIVE ADDR« 
; KEEP IT MOVING! 
{A LITTLE MORE I 
| THERE IT IS 



{GET IT TO DISK ADDR. 
{CALL MOUNT 
; RETURN 

{ INCREMENT THE INDEX 

1SET ERROR CNTR TO S 
? SET SIN CNTR TO 3 



SEQ ©03S 



706 
707 

708 
709 
710 
711 
712 
.713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 



004340 
004344 

004376 
004376 
004402 
004404 
004405 
004406 
004412 

004446 
004446 
004452 

004514 
004514 
004516 
004522 



004524 

004526 

004532 

004536 

004542 . 

004546 

004550 

004554 

004562 

004566 

004572 

004574 

004600 

004602 

004606 

004642 
004642 
004646 
004652 

004654 
004660 

004704 
004704 
004706 
004714 
004716 
004722 

004754 
004754 
004756 



104401 004346 
000414 



013746 001314 
104403 

0,01 

000 

104401 004414 
000415 . 



104401 004454 
000420 



000000 

004737 004524 
000207 



01 0046 
01 3700 
042700 
005037 
105037 
000240 
01 0077 
012777 
004737 
105777 
100423 
005237 
001372 
104401 
000415 



010077 
105777 
100415 
104401 
00041 1 



000714 
032777 
001420 
104401 
000414 



001334 
001777 
001346 
001323 

174622 
000001 
005614 

174576 

001346 
004610 



174530 

174512 



;;65$i 
84$: 



{{67$: 
66$: 



I J69S3 
63$: 



TYPE 
BR 

.ASCII 

MOV 
TYPOS 

» BYTE 
.BYTE 

TYPE 
BR 

.ASCII 

TYPE 
BR 

. ASCII 

HALT 
JSR 

RTS 



,65$ { ; TYPE ASCI2 STRING 

64$ ; {GET OVER THE ASCII 

<lSXl2>/iy!0UNT PACK OH DRIVE #/ 



;SAVE DRIVE FOR TYPEOUT 

;G0 TYPE— OCTAL ASCII 
; TYPE 1 DIGIT(S) 
J SUPPRESS LEADING ZEROS 
5 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
<1SXl2>/iAKE PACK WRITE ENABLE/ 

,69$ | ; TYPE ASCIZ STRING 

60$ ; ;GET OVER THE ASCIZ 

<15X12>/PRESS CONTINUE WHEN DRIVE RDY/ 



DRIVE, -(SP) 





t 67$ 
66$ 



PC, INI 1<X L 
PC 



I CALL INITIALIZER 
I RETURN 



•THIS ROUTINE INITIALIZES A DRIVE AND INSURES THAT IT IS READY AND 

•WRITE ENABLED, IT IS ENTERED FROM MOUNT OR FROM EXECUTE IF OPERATION FAILS 



INITIL: MOV 

MOV 

BIC 

XNXTI9: CLR 
CLRB 

NOP • 

MOV 

Moy 

ask 

TSTB 
B$X 
INC 

BNE 
TYPE 
BR 

. ASCI2 



1$: 



64$: 

2$: 



$8$: 



000040 1 744SQ 3$: 



j {69$: 
68$: 



000670 

005037 001346 



TST8 
BUI 
TYPE 
BR 

•ASCII 

BR 
BIT 

BEQ 

TYPE 

BR 

•ASCII 

BR-- 

CLR - 



RO,-(SP) 
9#DSKADR,R0 

#1777,R0 
WTIMR 

WTIPRS 

RO.&RKDA 
#1 ,9RKCS 
PCSffiTME 

@R#CS 
2$ 

WTIMR 
■1$ 

,65$ 
64$ 

<15><12>/C0NTR0L 

RO,#RKDA 
•RK05 

3S 
,67$ 
66$ 



<15X12>/DRXVE NOT READY/ 



;SAVE RO 

{GET THE DRIVE # TO RO 
| CLEAR THE UNUSED BITS 
{CLEAR THE TWER 

• 

; GET DRIVE # TO 1 DA' REGISTER 
; ISSUE CONTROL RESET * GO 

{DID CONTROL READY SET 
J IF YES BRANCH 
;IF NO INCREMENT THE TIMER 
{IF TIBER NOT ZERO BRANCH 
5 { TYPE ASCIZ STRING 

{GET OVER THE ASCIZ 

RESET TIME OUT/ 

{DRIVE NUMBER TO *DA* REG. 
|IS DRIVE READY 
; IF YES BRANCH 
; { TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



INITI2 
#BITS,«KDS 
4$ 
,69$ 
68$ 



;G0 BACK TRY AGAIN 

; IS DRIVE WRITE LOCKED? 

; IF NO, BRANCH 

; ; TYPE ASCIZ STRING 

J {GET OVER THE ASCIZ 



<15X12>/DRXVE WRITE PROTECTED/ 



XNXTX2 



5 YES, GO BACK TRY AGAXN 
? CLEAR THE TIMER 



MAINDEC 


-1 1-DZRKI 


-E 


MACY1 1 


30A(1052) 24-WAR-78 


09S23 PAGE -17 


DZRKIF. 


P1 1 24 


-MAR-78 


09:20 


COMPATIBILITY 


TEST 


762 


004762 


01 0077 


174410 




MOV 


R0,#RKDA 


763 


004766 


01 2777 


000015 


1 74374 


MOV 


#15,#RKGS 


764 


004774 


004737 


005614 




JSR 


PC , SMTME 


765 


005000 


105777 


174364 


S$: 


TSTS 


#RKCS 


766 


005004 


100375 






BPL 


5$ 


767 


005006 


032777 


000100 


17435© 


BIT 


*10Q<,»RKDS 


768 


005014 ' 


001031 






BNE 


6$ 


769 


005016 


005237 


001346 




INC 


CWTXMR 


770 


005022 


001366 






BNE 


5$ 


771 


005024 


105737 


001323 




TSTB 


«#txmr2 


772 


005030 


001003 






BNE 


7$ 


773 


0O5032 


105237 


001323 




INCB 




774 


005036 


000760 






BR 


B$ 


775 


005040 






7$: 






776 


005040 


104401 


005048 




TYPE 


,71$ 


777 


005044 


000414 






BR 


70$ 



SEQ 3337 



778 
779 
780 
781 
782 
783 
784 
785 
786 
787 



005076 
005076 
005100 
005102 



{{71$: 
70$: 



• ASCII <15><12>/DRXVE 



000727 

012600 
000207 



BR 

MOV 

RTS 



4$ 

CSP)+,R0 
PC 



{GET THE DRIVE # TO 1 DA' 
{ISSUE DRIVE RESET + GO 



READ/WRITE/SEEK READY BIT SET? 

IF YES, BRANCH 

HQ, INCREMENT THE TWER 

GO BACK AND CHECK IF TIMER HOT § 



{{TYPE ASCIZ STRING 
I {GET OVER THE ASCII 
RESET TIMED OUT/ 

{GO SACK, TRY AGAIN 

{RESTORE RO 

? RETURN TO CALLER 



788 


005104 


105037 


001316 




hrlxnk: 


CLRB 


789 


0051 10 


000240 








NOP 


790 


0051 12 


1 1 3701 


001314 






MOVB 


791 


0051 16 


006101° 








ROL 


792 


0051 20 


016137 


001206 


00 1363 


1$: 


MOV 


793 


005126 


004737 


005302 






JSR 


794 


0051 32 


000401 








BR 


795 


0051 34 


000207 








RTS 


796 


005136 


01 2737 


001362 


001336 


ass 


MOV 


797 


P05144 


013737 


001342 


001340 




MOV 


798 


005152 


01 3737 


001354 


001332 




MOV 


799 


005160 


004737 


005402 






USR 


800 


005164 


032737 


000020 


001334 




BIT 


801 


005172 


001006 








BNE 


802 


005174 


052737 


000020 


001334 




BIS 


803 


005202 


105137 


001362 






COM® 


804 


005206 


000753 








BR 


805 


005210 


042737 


000Q20 


001334 


3$: 


BIC 


806 


005216 


105137 


001362 






com 


807 


005222 


oosaoa 








INC 


808 


005224 


004737 


005312 






JSR 


809 


005230 


000742 








BR 


810 


00S232 


000307 








RTS 



811 
812 

813 
814 
813 

816 

81? 



THIS ROUTINE TAKES CARE OF ILL LINKAGES FOR THE 

EXECUTE ROUT WE. IT FORMS THE ADDRESS AND SETS UP ALL THE 

REGISTERS FOR THE WRITE OPERATION 

0#CQMND { INDICATE WRITE OPERATION 

• *«# 

•#DRXVE,ft1 {PICK UP THE DRIVE § 

R1 {MAKE IT A WORD INDEX 

DRV0(R1 } ,##PATTRN. { PICK. UP THE DATA PATTERN 
PC, CYLADR {CALL CYLINDER ADDRESS 

2$ { RETURN HERE IF NOT. LAST BASE 

PC ; RETURN HERE IF LAST SASE 

#PATTRN ,##BUSADR {GET THE ADDRESS OF THE OUTPUT 
*#CYLCNT,WfWRDCNT {GET THE WORD COUNT 
©*WRITCS,fi»*CONTRL {GET THE CONTROL + STATUS WORD 
PC.EXECUT {CALL EXECUTE 

#BXT4,9*DSKADR {WAS THIS WRITE SURFACE "1"? 
{IF YES BRANCH 
{SET SURFACE ONE BIT 
{MAKE IT SURFACE ONE DATA 
{ RELOAD REGISTERS AND EXECUTE 
{ SET UP FOR SURFACE *0« 
{WAKE IT SURFACE DATA 
; INC. THRU SELECTED CYL. OFFSET TABLE 
;GET THE CYLINDER VALUE 
{ RETURN HERE IF MORE TO READ 
5 RETURN HERE IF FINISHED 



3$ 

*BXT4,0*DSKADR 
WPATTRN 

2$ 

#BXT4,##DSKADR 
WPATTRN 

R2 

PC 8 CYLOFF 

2$ 

PC 



THIS ROUTINE EXPECTS TO FIND A UASK IN R2, AND FRO! THIS &SASK 
BUILDS A TABLE (AT CYLTBL) OF CYLINDER ADDRESS OFFSETS? THE TABLE 
2S TERMINATED BY A #377 



005234 
005236 



010546 

042702 1-77400 



MOV 

SIC 



R8,-(sp) 

#1 7749© 9 fta 



{ SAVE RS 

?€LR THE UMUSE0 SITS 05 s THE MASH 



SEQ 9038 



818 


005242 


000240 




819 


005244 


01 2703 


000200 


820 


005250 


005004 




821 


005252 


01 2705 


001274 


822 


005256 


030203 




823 


005260 


001401 




824 


005262 


1 1 0425 




825 


005264 


1 05204 




826 


005266 


006003 




827 


005270 


1 03372 




828 


005272 


1 1 2715 


000377 


829 


005276 


01 2605 




830 


005300 


000207 




831 








832 








833 








834 








835 


005302 


01 2703 


001 266 


836 


005306 


01 2702 


001 274 


837 


005312 


1 1 1204 




838 


005314 


000240 




839 


005316 


1 22704 


000377 


840 


005322 


00141 6 




841 


005324 


005046 




842 


005326 


11 1316 




843 


005330 


062604 




844 


005332 


0061 04 




845 


005334 


006104 




846 


005336 


006104 




847 


005340 


006104 




848 


005342 


0061 04 




849 


005344 


042737 


01 7777 


850 


005352 


050437 


001 334 


851 


005356 


000207 




852 


005360 


005203 




853 


005362 


000240 




854 


005364 


022703 


001 274 


855 


005370 


001401 




856 


005372 


000745 




857 


005374 


062716 


000003 


858 


005400 


000207 




859 








860 








861 








862 








863 


005402 


005037 


001 346 


864 


005406 


000240 




865 


00541 


105037 


001 323 


866 


005414 


01 3777 


001 334 


867 


005422 


01 3777 


00 1 336 


868 


005430 


01 3777 


001340 


869 


005436 


01 3777 


001332 


870 


005444 


004737 


005614 


871 


005450 


105777 


173714 


872 


005454 


10001 1 




873 


005456 


004737 


006102 



NOP 






610 V 


Minn o*a 


. g£T up THE COMPARE MASK 


H«w 




*CLR THE INDEX COUNTER. 


MOV 


junVl TBI DK 


• RCT rue cyi TNnPR- TABLE ADDRESS 


BIT 




•is the mask bit selected in base 


BEQ 




* 1 F M0 BRANCH 


MOVB ' 


R4, (R5)+ 


•MOVE THE CYLINDER BASE TO THE TABLE 


INCB 


R4 


*, INCREMENT THE BASE 


ROR 


R3 


{ROTATE THE COMPARE MASK 


BCC 


1$ 


; IF NOT DONE GO BACK 


MOVB 


0377, (R5) 


{IF DONE LOAD FINISH FLAG 


MOV 


(SP)-f ,R5 


; RESTORE R5 


RTS 


PC 


; RETURN TO CALLER 



ISs 

2$ 5 



•THIS ROUTINE FORMS A CYLINDER ADDRESS FOR BOTH THE READ AND WRITE ROUTINES 
; WHEN THE BASE TABLE IS FULLY INDEXED IT RETURNS TO PC+2 OF CALLER 



CYLADR*. 


MOV 


0BASE.R3 


GET THE CYLINDER TABLE ADDRESS 


CYLAD2: 


MOV 


ICYLTBL, R2 


GET THE SELECTED CYL BASE ADDR . 


CYLOFF: 


MOVB 
NOP 


(R2),R4 


GET THE SELECTED CYL VALUE TO R4 
*** 




CMPB 


#377, R4 


IS IT THE TABLE TERMINATOR? 




BEQ 


BASING 


IF YES BRANCH 




CLR 


*(SP) 


INSURE CLEAN WORD 




MOVB 


(R3) f (SP) 


GET THE CYL ADDRESS ON THE STACK 




ADD 


(SP)+,R4 


AND IT TO THE SELECTED OFFSET 




ROL 


R4 


SHIFT THIS RESULT 




ROL 


R4 


TO ALIGN THE NEWLY FORMED 




ROL 


R4 


CYLINDER ADDRESS WITH BITS 




ROL 


R4 


5 THRU 12 OF RKDA AND 




ROL 


R4 


STORE THIS IN DSKADR 




BIC 


#017777,e#DSKAOR 

R4,## DSKADR 


CLEAR ALL BUT DRIVE NUMBER 




BIS 


PUT IT IN DSKADR 




RTS 


PC - 




BASING: 


INC 
NOP 


R3 


PICK UP ADDRESS OF HIXT BASE CYL* 
*** 




CMP 


#CYLTBL,R3 


ARE YOU FINISHED? 




BEQ 


RETRN3 


IF YES, BRANCH 




BR 


CYLAD2 


NO GO BACK 


RETRN3: 


ADD 


#2, (SP) 


SET-UP FOR PC+2 




RTS 


PC 


RETURN 



{ROUTINE TO PERFORM INDICATED FUNCTION AND CHECK FOR 
{DONE AND ERRORS 

EXECUTt CLR 90TIMR {CLEAR THE TIMER 

NOP {HALT HERE TO CHECK COMMAND ABOUT TO BE EXECUTED 

CLRB WTIMR2 { CLEAR SECOND TIMER 

173754 MOV QlDSKADR , 0RKDA {LOAD THE DISK ADDRESS REGISTER 

173744 MOV ®#BUSADR .0RKBA {LOAD THE BUS ADDRESS REGISTER 

173734 MOV O0WRDCNT ,0RKWC { LOAD THE WORD COUNT REGISTER 

173724 MOV e#CONTRL,*RKCS {LOAD THE CONTROL REGISTER 

JSR PC • SMTME {KILL TIME FOR RK11-C 

CHECK 1 $ TST8 #RKCS f IS CONTROL READY SET 

BPL TIME ;IF NO BRANCH 

JSR PC.ERRCHK 



MAINDE-C-1 1-D2RKI-E 



DZRK1 F . 


P1 1 24-MAR-78 


09:20 


874 


005462 


005737 


001360 


875 


005466 


001403 




876 


005470 


005037 


001360 


877 


005474 


000742 




878 


005476 


000207 




879 


005500 


005237 


001348 


880 


005504 


000240 




881 


005506 


001360 




882 


005510 


105737 


001323 


883 


005514 


001003 




884 


005516 


105237 


001323 


885 


005522 


000752 




886 


005524 


004737 


004524 


887 


005530 


104401 


005536 


888 


005534 


000426 




889 








890 


005612 






891 


005612 


000673 




892 


005614 


012737 


000500 


893 


005622 


005337 


001348 


894 


005626 


001375 




895 


005630 


000207 




896 








897 








898 








899 








900 








901 








902 


005632 


010046 




903 


005634 


000240 




904 


005636 


'52737 


000377 


905 


005644 


01 2701 


001166 


906 


005650 


012705 


001305 


907 


005654 


000405 




" 908 


005656 


062701 


000002 


909 


005662 


022701 


001206 


910 


005666 


001503 




911 


005670 


00571 1 




912 


005672 


100001 




913 


005674 


000770 




914 


005676 


01 1100 




915 


005700 


010002 




916 


005702 


000300 




917 


005704 


042700 


177770 


918 


005710 


110037 


00131? 


919 


005714 


006100 




920 


005716 


016037 


001206 


921 


005724 


004737 


005234 


922 


005730 


004737 


005302 


923 


005734 


000401 




924 


005736 


000747 




925 


005740 


053737 


001352 


926 


005746 


152537 


001334 


927 


005752 


012737 


007356 


928 


005760 


000240 




929 


005762 


013737 


001344 



MACY11 30A(tO52) 24-MAR-78 00123 
COMPATIBILITY TEST 



1$s 
TIME; 



SEQ 0030 



00134® 



1$: 



f ;69$: 
64$ 1 



1$: 



TST 


•fBRRFia 


{ ERROR? 


BEQ 


1$ 


{IF NO BRANCH 


CLR 


*# ERR FLO 


{CLEAR THE FLAG 


BR 


EXECUT 


;TRY AGAIN 


RTS 


PC 




INC 


mtmn 




NOP 




1 **** 


BNE 


CHECK 1 




TSTS 


mtxmr2 


; SECOND TIMEOUT? 


BNE 


t$ 


{IF YES BRANCH 


INCB 


a#txmr2 


{ INDICATE SECOND TIMEOUT 


BR 


CHECK 1 


;.G0 BACK 


USR , 


PC.INITIL 




TYPE 


,65$- ' 


; J TYPE ASCII STRING 
% * f GET OVEft THE ASCII 


BR 


S4$ 



.ASCII <tS»<l2>/TI§HS OUT ON OPERATION RETRY 114 PROGRESS/ 



BR 

MOV 
DEC 
BNE 
RTS 



EXECUT 
#500, WT™ 

Wt« 

1$ 

PC 



THIS HOUTINE CHECKS TO SEE IF & 0RXVE IS ACTIVE PROW A 
WRITE OPERATION, IT GETS THE RE&D MSK TO R3, AND THE 
EXPECTED DATA PATTERN TO 55 PATTERN* , AND THEfi CALLS ADDRESS 
CONTROL. 



RDLINK: 



001334 $04 
RD5 

001333 RD6 



MOV 
NOP 
BtSi 
MOV 

my 

BR 
ADD 

CMP 1 

BEQ 

TST 

BPL 

BR 

MOV 

MOV 

SWAS. 

BIC 

ftnovB 

ROL 

MOV 
JSR 
JSR 
BR 

BR 
BIS 
BISi 
MOV 

NOP 
MOV 



RQ,-»(SP) 

#377,e*CQM}4D 

fLOGA, R1 

#SECTBL,RS 

RD2 

#2,R1 

#DRV0,R1 

EXITS 

(RD 

RD3 

RD1 

(R1),R0 
no, 9.2 
RO 

#177770, RO 

RO,WWRTNBt 
RO 



PC, MASK 
PC, CYL ADR 

RD4 
RD1 



SAVE RO 

INDICATE READ OPERATION . , 

GET THE TABLE ADDRESS TO R1 

GET THE SECTOR TABLE ADDRESS 

SKIP OVER THE INDEX, FIRST PASS 

ADD 2 TO THE ADDRESS 

ARE YOU THRU THE ENTIRE TABLE 

IF YES EXIT 

IS THE DRIVE ACTIVE 

IF YES BRANCH 

IF NO GET NEXT WORD 

GET THE ACTIVE WORD TO RO 

COPY THE WORD 

GET THE DRIVE * TO THE LOW BYTE 
CLR ALL BUT THE DRIVE 
SAVE THE DRIVE f 
MAKE IT AN INDEX 



DRV0(R0).WM>ATTRN {PICK UP THE DATA PATTERN 



CALL THE MASK SUBROUTINE 
GO FORM & CYLINDER ADDRESS 
RETURN HERE IF NOT LAST BASE ADDR. 
IF LAST BASE ADDRESS, RETURN HERE 



•*DSKTMP,*#DSKADR J SET THE DRIVE * BITS IN DISK ADDR. 

(R5)+,€M? DSKADR {SET THE SECTOR BITS IN DISK ADDR* 
#808UPF„ WBUSADR {SET THE BUFFER ADD®. 

«w$eccmt , ®*wrdcnt iget the mm count 



MAINDEC 


-11-DZRK1 


-£ 


MACY1 1 


DZRKI F . 


P11 24-MAR-78 


09:20 


930 


005770 


01 3737 


001356 


931 


005776 


004737 


005402 


932 


006002 


004737 


006450 


933 


006006 


042737 


000017 


934 


006014 


022705 


001311 


935 


006020 


001352 




936 


006022 


01 2705 


001305 


937 


006026 


032737 


000020 


938 


006034 


001006 




939 


006036 


052737 


000020 


940 


006044 


105137 


001362 


941 


006050 


000736 




942 


006052 


042737 


000020 


943 


006060 


105137 


001362 


944 


006064 


005202 




945 


006066 


004737 


005312 


946 


006072 


000722 




947 


006074 


000670 




948 








949 


006076 


012600 




950 


006100 


000207 




951 








952 








953 








954 








955 


006102 


032777 


140000 


956 


0061 10 


000240 




957 


0061 12 


001420 




958 


0061 14 


012777 


000001 


959 


006122 


004737 


005614 


960 


0*06126 


012777 


177777 


961 


006134 


105777 


1 73230 


962 


006140 


100375 




963 


006142 


105337 


001321 


964 


006146 


001002 




965 


006150 


000137 


006232 


966 


006154 


032777 


001000 


967 


006162 


000240 




968 


006164 


001530 




969 


006166 


012777 


000015 


970 


0061 74 


012777 


177777 


971 


006202 


004737 


005614 


972 


006206 


105777 


173156 


973 


006212 


100375 




974 


006214 


032777 


000100 


975 


006222 


001771 




976 


006224 


105337 


001322 


977 


006230 


001 106 




978 


006232 


105737 


001321 


979 


006236 


000240 




980 


006240 


001421 




981 


006242 


104401 


00635® 


982 


006246 


000415 




983 








984 


006302 






985 


006302 


00041S 





COMPATIBILITY TEST 



SE§ 0040 



001332 




MOV 


e#READCS,@#CONTRL ;GET THE READ CONTROL WORD 




JSR 


PC.EXECUT 


{DO THE READ 






JSR 


PC, RDCHK 


; CHECK THE DATA 


001334 




SIC 


017,€»#DSKADR 


;CLR THE SECTOR BITS IN DISK AODR. 




CMP 


0DRCNT1 ,R5 


;WAS THIS THE LAST SECTOR? 






BNE 


RD5 


; IF NO GO BACK 






MOV ' 


#SECTBL,R5 


J IF YES RESET SECTOR POINTER 


001334 




BIT 


#BIT4,0#DSKADR 


;WAS IT SURFACE "1" THAT WAS READ? 




BNE 


RD7 


; IF YES, BRANCH 


001334 




BIS 


#BIT4,@#DSKADR 


;N0, SET SURFACE "1" BIT 




COMB 


WPATTRN 


;MAKE HEAD H 1 " PATTERN 






BR 


RD5 


• fie\ DApi/ Akin c yen it c 

, UU OALn AINU CACblll C 


00 1 33^ 


RD7 S 


BIG 


#BIT4,##DSKA0R 


J CLEAR THE SURFACE BIT 




' COMB 


MPATTRN 


;MAKE IT SURFACE DATA 






INC 


R2 


; INCREMENT THE SELECTED CYL TABLE POINTER 






JSR 


PC.CYLOFF 


;60 FORM NEXT ADDRESS 






Bi 


RD4 


;IF HERE IT IS NOT THE LAST BASE ADDS 






BR 


R01 


;IF HERE GET NEXT WORD-DRIVE FINISHED 




EXIT2: 


MOV 


(SP)+,RO 


; RESTORE RO 






RTS 


PC 


; RETURN TO MAIN LINE CODE 



j THE ERROR CHECK ROUTINE CHECKS IF AN ERROR OCCURRED 
;ON WRITING OR READING. 



1 73260 ERRCHK S 

1 73S4S 
1 73224 



173174 

173158 



2$; 



64S*. 



BIT 


#1 40000, #R5Cj£3i 


NOP 




BEG 


TSTSN1 


MOV 


*1 ,#>RKCS 


JSR 


PC , SMTME 


MDV 


,$ERRFLd 


f STB 


#RKGS 


BPL 


1$ 


DECB 


WECMT 


BNE 


TSTSN1 


JMP 


WRESTRT 


BIT 


fM00G,$RKDS 


NOP 




BEQ 


RETRN2 


MOV 


#15,&RKCS 


MOV 


#-1,@ERRFL(S 


JSR 


PC, SMTME 


TSTB 


9RK.CS 


BPL 


2$ 


BIT 


#lOO t @RKPS 


BEO 


2$ 


DECB 


WNTSIM 


BNE 


RETRjNS 


TSTB 


MEC.NT 


NOP 




BEQ 


1$ 


TYPE 


,65$ 


BR 


64$ 


.ASCII 




BR 


n 



{HARD ERROR OR ERROR SET? 

-HALT HERE TO EXAMINE ERROR REG. ,ECT. 

5 IF NO, GO TEST 'SIN' BIT 

;IF YES, ISSUE CNTROL RESET + GO 

J FLAG AN ERROR (PREVENT UPDATE OF A DDR) 

; CNTROL READY BIT SET { FROM CNTROL RESET) 

;IF NO WAIT. (IF HUNG HERE RUN STATIC) 

; DECREMENT ERROR COUNTER 

I HAVE ERROR BITS SET 5 ✓TIMES? 

;IF HERE 5 ERRORS HAVE OCCURRED 

; SEEK INCOMPLETE SET? 

» 

; BRANCH I F NO 

; IF YES, ISSUE DRIVE RESET, GO 

| FLAG AN ERROR (PREVENT UPDATE OF AOOR) 



; "R/W/S READY" BIT SET? 
;IF NO WAIT i (IF HUNG HERE RUN STATIC) 
; DECREMENT SEEK INCOMPLETE COUNTER 
;IF 3 'SIN* ERRORS FALL THROUGH 



; ?TYPE ASCIZ STRING 
; J GET OVER THE ASCIZ 

ERRORS OCCURRED/ 



MAINDEC 


-1 1-D2RKI 




MACY11 


DZRKI F „ 


P1 1 24 


-MAR-78 


09:20 


986 


006304 






987 


006304 


104401 


006312 


988 


006310 


000412 




989 








990 


006336 






991 


006336 






992 


006336 


104401 


006344 


993 


006342 


000422 




994 








995 


006410 






996 


006410 


105/37 


001316 


997 


006414 


100006 




998 


006416 


062706 


000004 


999 


006422 


01 2600 




1000 


006424 


052710 


100000 


1001 


006430 


000207 




1002 


006432 


052710 


100000 


1003 


006436 


012706 


001100 


1004 


006442 


000137 


003324 


1005 


006446. 


000207 




1006 








1007 








1008 








1009 








1010 


006450 


010446 




101 1 


006452 


01 0546 




1012 


006454 


105037 


001320 


1013 


006460 


000240 




1014 


006462 


012737 


000005 


1015 


006470 


012704 


007356 


1016 


006474 


013705 


001362 


'017 


006500 


020524 




1018 


006502 


001515 




1019 


006504 


105737 


001320 


1020 


006510 


001046 




1021 


006512 


104401 


006520 


1022 


006516 


000420 




. 1023 








1024 


006560 






1025 


006560 


152737 


000377 


1026 


006566 


11 3746 


001317 


1027 


006572 


104403 




1028 


006574 


001 




1029 


006575 


000 




1030 


006576 


104401 


006604 


1031 


006602 


000411 




1032 








1033 


006626 






1034 


006626 






1035 


006626 


104401 


006634 


1036 


006632 


000405 




1037 








1038 


006646 






1039 


006646 


013746 


001334 


1040 


006652 


104403 




1041 


006654 


006 





) 24-MAR-78 00553 
COMPATIBILITY TEST 



SEQ 0041 



;i6?$s 
66$: 



;?69$5 
68$ : 



TYPE 
BR 

, ASCII 



TYPE 
BR 



TSTB 
3PL 
ADD 
MOV 
BIS 

its ■ 
$is 
mm 

RETRNSS RTS 



3Ss 



,87$ ; ;TYPE ASCIZ STRING 

66$ ; ;GET OVER THE ASCIZ 

<l5><12>/5 ERRORS OCCURRED/ 



,69$ ; ; TYPE ASCIZ STRING 

68$ ; ; GET OVER THE ASCIZ 

/ DRIVE DECLARED DOWN! \ NOT TESTED 1/ 



gwcomnd 

3$ 

#4,SP 

(SP)+,RO 

#BITt5,(R0) 

PC 

#BIT15,(R0$ 

*STAC.K,SP 

##{3Ql' 

PC 



; TEST THE COMMAND 
{IF WRITE, BRANCH 
; POINT TO SAVE RO 
j GET RO BACK 
j SET THE DOWN BIT 
; RETURN TO MAIN CODE 
;SET THE DOWN BIT 
•.RESTORE THE STACK 



;THIS ROUTINE CHECKS A SECTORS mm\\ OF DATA ON A OPERATION 

;IT ALLOWS 5 ERROR PRINTOUTS PER SECTOR 

SAVE R4 

SAVE RS FOR 

CLEAR THE PRINT HEADER FLAG 

PUT ERROR COUNT IN CHECK COUNT 
GET THE TABLE ADDRESS TO R4 
GET THE EXPECTED DATA TO R5 
ARE THEY THE SAME 
IF YES BRANCH 
IS THE HEADER FLAG CLEAR 



1565$: 
64$: 



;j87$l 
86$ s 
2$: 



I I 60S? 



MOV 


R4,»(SP) ; 


MOV 


R5,-(SP) 


CLRB 


WHD.RFLG i 


NOP 


#5,9#CHKCNT ; 


MOV 


MOV 


$RDBUFF , R4 




«PATTRN,RS ; 


CMP 


R5,(R4)+ 


BE© 


3$ ; 


TST8 


MHDRFLQ ; 


BNE 


2$ ? 


TYPE 


,85* 5 


8R 


64$ ; 


.ASCIZ 


<1g»<ta>/IltROR! E 


BISS 


#377,»#H0RFLG ; 


MOVB 


MfflRTNBY,-(SP) ? 


TYPOS 




. BYTE 


1 


.BYTE 


© 


TYPE 


,67$ 


BR 


©8$ 


.ASCII 


/ CANNOT HE HEAD 


TYPE 


,89$ 


BR 


68$ 


.ASCIZ 


<15><12>/ addr«/ 


MOV 




TYPOS 




.BYTE 





[TYPE ASCIZ STRING 
[GET OVER THE ASCIZ 



SET THE HEADER FLAG 

PICK UP THE DRIVE # THAT WROTE 



; TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 



? PICK UP THE ADDRESS THAT FAILED 



f 



MAINDEC-11-DZRKI-E MACY11 30A(1052) 24-MAR-7B 09:23 PAGE 22 

DZRKIF.P1 1 24-MAR-78 09:20 COMPATIBILITY TEST 



SEQ 0043 



1042 


006655 


001 






.BYTE 


1 




1043 


006656 


104401 


006664 




TYPE 


,71$ 


1 J TYPE ASCIZ STRING 


1044 


006662 


000405 






BR 


70$ 


I {GET OVER THE ASCIZ 


1045 








; ;71$: 


. ASCIZ 


/ EXPCTD*/ 




1046 


006676 






70$: 








1047 


006676 


01 0546 






MOV 


R5,-(SP) 


{PICK UP THE EXPECTED DATA (GOOD) 


1048 


006700 


104404 






TYPQN" 






1049 


006702 


104401 


006710 




TYPE 


;Z? 

72$ 


; {TYPE ASCIZ STRING 


1050 


006706 


000405 






BR 


{{GET OVER THE ASCIZ 


1051 








{ {73$: 


.ASCIZ 


/ RECVO«/ 




1052 


006722 






72$: 








1053 


006722 


01 6446 


177778 




MOV 


-2(R4),-(SP) 


{PICK UP THE RECEIVED DATA (BAD) 


1054 


006726 


104404 






TYPON 






1055 


006730 


005337 


001350 




DEC 


*#CHKCNT 


{DECREMENT THE CHECK COUNT 


1056 


006734 


001403 






BEG 


4$ • 


? IF ZERO, BRANCH 


1057 


006736 


022704 


010356 


3$: 


CMP 


«W3S£L,R4 


; DONE ALL CHECKS? 


1058 


006742 


001256 






BNE 




{ I F NQL, GO BACK 


1 059 


006744 


01 2605 




4$: 


MOV 




{RESTORE R5 


1060 


006746 


01 2604 






MOV 


{RESTORE R4 


1061 


006750 


000207 






RTS 


PC 


{ RETURN TO CALLER 


1062 
















1 063 








{THIS ROUTINE I 


JUILDS A TABLE 


OF PARAMETERS TO PASS TO THE SECOND SYST 
IVES INTO ONE WORD 


1 064 








J IT PACKS THE INFO FOR TWO DR 


1065 
















1 066 


006752 


005003 




SECONES 


CLR 


R3 


| CLEAR THE WORD COUNTER 


1 067 


006754 


000240 






NOP 






1 068 


006756 


01 2702 


001256 




MOV 


#MSKTBL,R2 




1 069 


006762 . 


005042 




6$: 


CLR 


~(R2) 




1 070 


006764 


022702 


001246 




CMP 


#PASTBL,R2 




1 071 


006770 


001374 






BNE 


6$ 


{GET THE ACTIVE TABLE ADDRESS 


1 072 


006772 


01 2700 


001 166 




MOV 


#LOGA,R0 


1 073 


006776 


01 2001 




1$: 


MOV 


(R0)+,R1 


{PICK UP THE WORD 


1074 


007000 


000301 






SWAB 


Rt 


{GET THE DRIVE # TO THE LOW BYTE 


1 075 


007002 


042701 


1 77400 




BIC 


#1 77400 t m 


;€t£AR THE UNWANTED BITS 


1 076 


007006 


106101 






ROLB 


m 


; ROTATE THE BYTE, WAS DOWN SET? 
{.IF N$ BRANCH 


1 077 


007010 


1 03.002 






BCC 


2$ 


1 078 


00701 2 


052701 


000001 




BIS 


#BITO,R1 


{ SHOW THE DRIVE AS DOWN IN THE TABLE 


1 079 


007016 


105701 




2$: 


TST8 


R1 


;IS THIS THE SYSTEM #2 DRIVE? 


1 080 


007020 


100404 






BMI 


3$ 


{ BRANCH IF YES 


1 081 


007022 


142701 


000360 




BICB 


#360, R1 


{CLEAR THE UNUSED BITS 


1 082 


007026 


1 1 01 22 






MOVB 


R1,(R2)* 


{GET THIS ft TO THE PASS TABLE 


1 083 


007030 


000762 






BR 


1$ 


{GET THE NEXT WORD FROM ACTIVE TABLE 


1 084 


007032 


1 1 01 12 




3$s 


MOVB 


R1.CR2) 


{GET THE LAST DRIVE TO THE PASS TABLE 


1 085 


007034 


01 2702 


001246 




MOV 


#PASTBL,R2 


{RESTORE THE TABLE POINTER 


1086 


007040 


104401 


007046 




TYPE 


,65$ 


{ {TYPE ASCIZ STRING 


1 087 


007044 


000425 






BR 


64$ 


{ {GET OVER THE ASCIZ 


1088 








{{65$: 


« ASCIZ 


<15><12>/L0AD 


AND START ADDRESS 210 ON SYSTEM #2/ 


1 089 


0071 20 






64$: 






1090 


007120 


104401 


007126 




TYPE 


,67$ 


{ {TYPE ASCIZ STRING 












BR 


66$ 


, ,uc I QVtR THE AbCIi 
TYPE THE BELOW WHEN ASKED FOR IT./ 


1092 








|;67SS 


.ASCIZ 


<15X12>/AND 


1093 


007176 






68$: 






1094 


007176 


005203 




4$: 


INC 


R3 


{INCREMENT THE WORD COUNTER 


1095 


007200 


104401 


007206 




TYPE 


,69$ 


II TYPE ASCIZ STRING 


1096 


007204 


000405 






BR 


68$ 


{ {GET OVER THE ASCIZ 


1097 








|{69$! 


.ASCI 1 


<1S><12>/W0RD 


/ 
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1098 


007220 




1099 


007220 


010346 


1100 


007222 


104403 


1101 


007224 


006 


1 102 


007225 


000 


1 103 


007226 


104401 


1 104 


007232 


000401 


1 105 






1 106 


007236 




1 107 


007236 


012246 


1 108 


007240 


104403 


1109 


007242 


006 


1110 


007243 


001 


1111 


007244 


032762 


1112 


007252 


001004 


1113 


007254 


032762 


1114 


007262 


001745 


1115 


007264 


005740 


1116 


007266 


000000 


1117 






1 118 


007270 




1119 


007270 


104401 


1120 


007274 


000404 


1 121 






1 122 


007306 




1 123 


007306 


10441 1 


1 124 


007310 


01 2602 


1 125 


007312 


042702 


1 126 


007316 


012704 


1 127 


007322 


005724 


1 128 


007324 


100776 


1 129 


007326 


010437 


1130 


007332 


01440- 


1131 


007334 


000240 


1 132 


007336 


004737 


1133 


007342 


004737 


1 134 


C07346 


013700 


1 135 


Q07352 


000137 


1136 






1 137 


007356 


000400 


1 138 






1 139 


010356 


000240 


1 140 






1141 






1 142 






1 143 






1 144 






1 145 


010360 




1 146 


010360 


104401 


1147 


010364 


000401 


1 148 






1149 


010370 




1 150 






1 151 






1152 






1153 







{{71$: 
70$: 



100000 1 
000200 1 



MOV 
TYPOS 




{GET THE WORD COUNT ON THE STACK 


.BYTE 
.BYTE 


@ 





TYPE 


,71$ 


{ {TYPE ASCIZ STRING 


BR 


70$ 


{ {GET OVER THE ASCIZ 


.ASCII 


/-/ 




MOV 


{R2|*,«(SP) 


{GET THE FIRST TO THE STACK 


TYPOS 






.BYTE 


6 




.BYTE 


1 




BIT 


#8ITl5,-a(R2) 


{WAS THIS THE TABLE TERMINATOR 


BNE 


5$ 


{ BRANCH IF YES 


BIT 


#SXT7i-2(«2) 


; TERMINATOR? 


BEG 


4$ 


{IF NO ©RANCH 


TST 


-<RO) 




HALT 







177400 
001166 



004224 
005632 
001100 
003372 



{{65$ 
64$ s 



Its 



MOV 
BIC 
MOV 
TST 
BMI 
MOV 
MOV 
NOP 
JSR 



RDBUPFI .BUCK 

hansel: nop 



ssr 

<is> 



(SPH.R2 
#1 77400, m 
#L0GA,R4 
(R4) + 
IS 

R4,tMF$PASS 

-«R4),R1 

PC, LDFLG 
PC.ROLINK 

@#$PASs,ao 

##£XTFR3 



I { TYPE ASCIZ STRING 
{{GET OVER THE ASCIZ 



I GET THE WORD FROM SYSTEM 2 TO TASLE 



{SET POINTER LOOK FOR FIRST B UP a 
{DRIVE UP? 
{IF NO 



{CALL D02+ 

{ CALL READ CHECK 

{GO TO END OF TEST 



DRIVE 



BADONE: 

TYPE ,65$ 

BR 84$ 

{{65$: .ASCII /?/ 



{{TYPE ASCIZ STRING 
{{GST OV-Eft THE ASCIZ 



.SSTTL OSCILLATING SSEK ROUTINE 
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se© mm 



1 1 54 


01 0370 








SECT. 2 I 








1 155 


01 0370 


1 04401 


010376 






TYPE 


,65$ 


; ; TYPE ASCIZ STRING 


1 1 56 


01 0374 


00041 6 








BR 


64$ 


; ;GET OVER THE ASCIZ 


1 1 57 










% ;65$S 


.ASCII 


<1 5X1 2>/0SCI LLATING SEEK PACKAGE/ 


1 1 58 


01 0432 








64$ J 








1 1 59 


















1 1 60 


1 0432 


01 2700 


020614 






RSOV ' 


#DRIV0,R0 


: FIND OUT WHICH DRIVES ARE 


1161 


01 0436 


00500 1 








CLR 




. DESBCCfcJJT AftJf\ ffailT Toff 

1 rKfcafcpsT AND PUI THE 


1 1 62 


1 0440 


0101 77 


1 70732 






$SOV 


rj * mourn A 


; DRIVE M 1 S IN A TABLE STARTING 


1163 


010444 


105777 


170714 






TSTB 


n tf c 


; AT 1 DRI VO ' . SITS 15-13 CONTAINS 


1164 


010450 


100001 








BPL 


2$ 


! I ne UNiVc » 


1165 


01 0452 


01 01 20 








MOV 






1 1 66 


01 0454 


062701 


020000 






ADO 






1 1 67 


01 0460 


00 1 367 








BNE 






1 1 66 


01 0462 


01 271 


1 77777 






MOV 


#— 1 t { RO ) 


tSftl i nc iHK^INAiUM I U Trig ingLs 


1 1 69 
1 1 70 


01 0466 


01 3702 


001 376 




1N2T.25 


MOV 


Dun A DO 




1171 


01 0472 


01 2777 


000001 


1 70@?§ 




MOV 


ft 1 , VKfSUO 


« t CCI ic f*n%iTnnt neceT t*t% a 
i iaaue CUN 1 nv L Hcbc 1 t uu 1 


1 1 72 


01 0500 


004737 


005614 






JSR 


ri» « 3m I nfi 




1 1 73 


01 0504 


1 05777 


1 70660 




1$! 


TSTS 


@:RKCS 


wUpIThOL. HsAuY 5ET7 


1 1 74 


01 051 


1 00375 








BPL 




»&r mj wfkiil {if HUnCa RUP3 §&TATI<E| 


1 1 75 


01 0512 


01 2700 


020614 






fciOV 


ff UK iVVi NU 


1 1 76 


01 051 6 


01 2077 


170654 






&5QV 






1 1 77 


01 0522 


01 2777 


00001 5 


1 7004$ 




MOV 




i SKIVE ReSeT <v ©Ul 


1 1 78 


01 0530 


004737 


005614 






JSR 






1 1 79 


01 0534 


1 05777 


1 70630 






TSTB 


IfKnw 




1 180 


01 0540 


1 00375 








BPL 


2$ 




1181 


01 0542 


02271 


17777? 






CUP 


#-1 ,(R0) 




1 182 


01 0546 


00 1 363 








BHB 


3$ 




1 1 83 


01 0550 


1 04401 


01 055® 






TYPE 


,65$ 


; J TYPE ASCIZ STRING 


1 184 


01 0554 


000432 








BR 


64$ 


J J GET OVER THE ASCIZ 


1 1 85 










• j 85$ j 


•ASCII 


<15X12>/S£T 


SW0 TO SW7 TO SELECT DRIVES FOR TEST AND CQMT/ 


1 1 86 


01 0642 








84$ i 






1 1 87 


01 0642 


1 04401 


01 OSS© 






TYPE 


,67$ 


; ; TYPE ASCIZ STRING 


1 188 


01 0646 


000426 








BR 


66$ 


; ;GET OVER THE ASCIZ 


1 1 89 










1 ;67$; 


.ASCII 


<15><12>/RE$ET %m TO SW7 TO TEST ALL AVAIL DRIVES/ 


1 190 


01 0724 
















1 1 91 


01 0724 


022737 


0001 I'd 


00114© 


?•$: 


CMP 




; SOFTWARE SWITCH REGISTER IN USE ? 


1 1 92 


01 0732 


001002 








BNE 


m 


; BR IF NOT 


1 1 93 


01 0734 


1 04405 








GTSWS 




? REQUEST NEW CONTENTS FOR SWITCH REG 


1 1 94 


01 0736 


000401 








BR 


8$ 


; CONTINUE 


1 1 95 


010740 


000000 






§$5 


HALT 




JWAIT FOR OPERATOR TO ENTER' NEW SWS VALUE 


1 1 96 


01 0742 


1 1 7704 


170172 




Sis 


MOVE 


@SWR,R4 


;SW0 TO SW7 TO R4 


1 197 


01 0746 


001413 








BBQ 


4$ 


JN0NE SET, SO TEST ALL 


1 198 


01 0750 


01 2700 


020614 






MOV 


#DRXV0 t R0 


? TABLE TO STORE DRIVE AODRS 


1 199 


01 0754 


005001 








CLR 


m 


; ADDR OF DRIVE 


1 200 


01 0756 


006004 






@$; 


RQR 


R4 


;NEXT SWITCH TO CARRY 


1201 


010760 


1 03001 








BCC 


5$ 


} SWITCH NOT SET 


1 202 


010762 


01 01 20 








MOV 


R1 , (RO)* 


; SWITCH SET, SO MOVE ADDR TO TABLE 


1 203 


01 0764 


062701 


020000 




SSs 


ADD 


#20000, R1 


; ADDR OF NEXT DRIVE 


1204 


010770 


001372 








BNE 


S$ 


;ALL DONE WHEN ZERO 


1205 


010772 


012720 


17777? 






MOV 


#-1 , (R0)4- 


; TABLE TERMINATOR 


1206 


010776 


105737 


001326 




4$ : 


TSTB 


OSPFLG 


; TYPED ONCE? 


1207 


01 1002 


001165 








SNE 


RWSRDY 


;IF YES, DONT RETYPE 


1208 


011004 


104401 


011012 






TYPE 


,63$ 


; J TYPE ASCIZ STRING 


1209 


011010 


000432 








BR 


60S 


; *,GET OVER THE ASCIZ 
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1210 








121 1 


01 1076 






1212 


01 1076 


104401 


011104 


1213 


01 1 102 


000441 




1214 








1215 


01 1206 






1216 


01 1206 


104401 


01 iai4 


1217 


011212 


000430 




1218 








1219 


011274 






1220 


01 1274 


104401 


011302 


1 221 


01 1300 


000424 




1222 








1223 


01 1352 






1224 


01 1352 


105237 


O01326 


1225 


01 1356 


032777 


000100 


1226 


01 1364 


001774 




1227 


01 1366 


022737 


000176 


1 228 


01 1374 


001002 




1 229 


01 1376 


104405 




1230 


01 1400 


000401 




1231 


01 1402 


000000 




1232 


01 1404 


012777 


000001 


1233 


011412 


10577? 


167752 


1234 


01 1416 


100375 




1235 


01 1420 


013705 


001 140 


1236 


01 1424 


1 1 2501 




1237 


01 1426 


042701 


17?4O0 


1238 


011432 


022701 


000312 


1239 


01 1436 


10003.4 




1240 


01 1440 


104401 


011446 


1241 


01 1444 


000430 




1242 








1243 


01 1526 






1244 


01 1526 


000717 




1245 


011530 


006101 




1246 


01 1532 


006101 




1 247 


01 1534 


006101 




1248 


01 1536 


006101 




1249 


01 1540 


006101 




1250 


01 1542 


042701 


16003? 


1251 


01 1546 


032705 


000001 


1252 


011552 


001003 




1253 


01 1554 


010137 


©01402 


1254 


01 1560 


000403 




1255 


011562 


010137 


001404 


1256 


01 1566 


000716 




1257 








1258 


01 1570 


012703 


000050 


1259 


01 1574 


013704 


001404 


1260 


01 1600 


01 3705 


001402 


1261 








1262 


01 1604 


012700 


020614 


1263 


01 1610 


010477 


167S62 


1264 


011614 


05207? 


1 67558 


1265 


011620 


0127?? 


000011 



; ;69$: 
88$: 



;?71Ss 
70$: 



|f?3$s 



.ASCIZ <15><12>/T0GGLE THE a FIRST CYLINDER ADDRESS® (OUTER LIMIT)/ 



TYPE 
BR 

.ASCI2 

TYPE 
BR 

„ ASCII 

TYPE 

BR 

.ASCII 



I J 75$ 
?4$: 

INCB 

17000® R&SRDYS BIT 
BEQ 

00114© TKY&G&s C&P 
BNE 
GTSOT 
8R 

1$: HALT 
\%irm COM! SMS MOV 
TSTB 



1$I 



84$ 5 



3$: 



as s 



BPL 

MOV 

BIC 

CKSP 
BPL 
TYPE 
BR 

.ASCXZ 

m 
Rot; 

ROL 
RQL 
ROL 
ROL 
SIC 
BIT 
BH£ 
MOV 

m 

wm 

BR 



SEKSETS MOV 
MOV 

mm 

IDSEE&S w 
§*§! MOV 
BIS 
iOV 



,71$ ; ; TYPE ASCIZ STRING 

?©$ 1 ; GET OVER THE ASCIZ 

«15Xia>/Bl?Q THE im BYTE fBITO-7) Of THE SWITCH REGISTER AND THI 

,73$ ; ; TYPE ASCIZ STRING 

72$ llGET OVER THE ASCII 

<1 5X1 2>/%fUMDm ADDRESS 8 (INNER LWIT1 INTO THE HIGH/ 



; ; TYPE ASCIZ STRING 

| {GET OVER THE ASCIZ 

BYTE CBIT8-15), THEN PRESS CONTINUE*/ 



; *READ/WRITE/S£EK READY" BIT SET? 
;IF NO WAIT 1 (IF HUNG RUN STATIC) 
; SOFTWARE: SWITCH REGISTER IN USE ? 

I BIS IF NOT 

;GET NEW CONTENTS 
I CONTINUE 

; CONTROL RESET 



OET THE ADDRESS OF THE SWITCH RE®« TO M 
GET A BYTE TO R1 
CLEAR THE UNUSED BUS 
IS ADDRESS LEGAL? 
BRANCH IF YES 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



,7S$ 
74$ 

<16><12>/ 

OSPFLG 
#10S,@RK0S 
RWSRDY 

1$ 

COMTIN 

#1 ,@RKCS 
#RKCS 
.-4 

SWR,RB 

#1?7400,Si1 
#312 V R1 

21 
,65$ 

<15><12>/XNVAI.X0 ADDRESS IN SWITCH REGISTER TRY AGAIN/ 

GO BACK FOR NEW PARAMETERS 
ROTATING THIS REGISTER 
MAKES THE BYTE FROM THE 
SWITCH REGISTER LINE UP 
WITH THE CYLINDER SITS OF 
THE RKDt REGISTER. 
CLEAR THE UNUSED BITS 
IS THIS THE LOW BYTE? 
BRANCH IF YES 

STORE THE INNER LIMIT OF THE 
START SEEKS 

STORE THE OUTER LIMIT OF THE SEEK 

GO BhCK mU GET HIGH SYTE. 

GET THE NUMBER OF SEEK CYCLES TO R3 
ADD THE OUTER LIMT CYLINDER ADDRESS 
AOS THE INNER LIMIT CYLINDER ADDRESS 

! INITIALIZE POINTER 
GET INNER LIMIT CYL AOfSES 
SIT ©RIVE ADRES 

1SSUI S£EK*G05 (FOK IWER LUST) 



immn 
fit 

R1 
R1 

R1 
R1 

#4 60037, R1 

#1 ,m 

3$ 

R1.,**SEEKI 

SSKSET 

R1 s ##SEEKO 

1$ 

#50 ? R3 

MSEEKO,W 

WSEEKI.KS 

#DRIV@,SI0 
K4«#RKDA 
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SEQ 004S 



1266 
1267 
1266 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
131 1 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 



01 1626 
01 1632 
01 1636 

01 1640 
01 1644 
01 1646 

01 1652 
011656 
01 1664 
01 1666 
01 1672 

011674 
01 1700 
01 1704 
01 1710 
011716 
01 1722 
01 1726 

01 1730 
01 1734 

01 1736 
01 1742 
01 1746 
01 1754 
01 1756 
011762 
01 1764 
01 1766 
01 1770 



01 1772 
01 1772 

01 1776 

012002 
012002 
012002 
012006 

0121 12 
012112 
012120 
012122 

0121 24 
012126 
012130 



004737 005614 
105777 167532 
100375 

02271 177777 
001361 



020614 
167520 
000100 



01 2700 
012077 
032777 

001774 
02271 
001367 



012700 020614 
01 0577 167472 



052077 
012777 
004737 



167466 
000011 

005614 



105777 167442 
100375 

022710 177777 
001361 

01 2700 020614 
012077 167430 
032777 000100 
001774 

022710 17777? 

001367 

005303 

001306 

000605 



104401 

000401 



104401 
000441 



022737 
001002 
104405 
000401 
000000 
012737 



6$; 

7S * 



8$! 



10$: 

18741S 11$: 



JSR 


PC.SMTME 






TSTB 


@RKCS 






BPL 


3$ 






CMP 


#-1 , (RO) 


; ALL 


DRIVES DONE? 


BNE 


5$ 


;no 




MOV ' 


#DRIV0,R0 






MOV 


(RO) + ,f»RKDA 


; ADRES THE DRIVE 


BIT 


#RWS,@RKDS 


; SEEK DONE? 


BEQ 


7$ 


;no, 


WAIT 


CMP 


#-1 ,(R0) 


; ALL 


DRIVES DONE? 


BNE 


6$ 


{NO 




MOW 


#DRIVO,RO 






may 


R5.0RKDA 


5SET 


OUTER CYL ADRES 


BIS 


(RO)+,&RKDA 


{SET 


DRIVE ADRES 


MOV 


#11 ,$RKCS 


5 1 SSI 


IE SEEK+GO i (FOR OUTER LIMIT) 


JSR 


PC.SMTME 






TSTB 


@RKCS 






BPL 


9$ 






CMP 


#-1 , (RO) 


{ALL 


BONE? 


BNE 


8$ 


J NO 




MOV 


#DRIV0,R0 






10V 


(R0)+,9RKDA 


JSET 


DRIVE ADRES 


BIT 


0RWS,$RKDS 




{SEEK DONE? 


BE0 


1 1 $ 






CMP 


#-1,(80) 


; ALL 


DONE? 


BNE 


10$ 






DEC 


R3 


{DONE 50 SEEK CYCLES (100 SEEKS) 


BNE 


LDSEEK 


{IF NO BRANCH (KEEP CYCLING) 


BR 


CONTIN 


; CHECK SWR FOR CHANGE AND CONTINUE 



. SBTTL FORMATTER-SURFACE VERIFIER 



000176 001140 



000001 020444 



{{65$: 



{{65$I 
64$: 



1$: 

as: 



TYPE 
BR 

.ASCII 



CUP 
BNE 

GT Steffi 
BR 

HALT 

MOV 



64$ 
/?/ 



{ {TYPE ASCI2 STRING 
{ {GET OVER THE ASCI2 



TYPE ,65$ { {TYPE ASCI2 STRING 

BR 64$ { {GET OVER THE ASCIZ 

, ASCII <15><12>/FQRMATTER-SURFACE VERIFIER, SET 



SW REG FOR DRV #«§. PRESS CONT./ 



#1 ,SHFCNT 



{SOFTWARE SWITCH REGISTER IN USE ? 
{ BR IF NOT 

{GET SWITCH REGISTER VALUE 
{CONTINUE 

{WAIT FOR 'CONTINUE 1 
{SET SHIFT COUNT 
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FORMATTER-SURFACE VERIFIER 


1322 


012136 


005037 


020446 






CLR 


DRVCNT 


1323 


012142 


033777 


020444 


186770 


S13J 


BIT 


SHFCNT,@SWR 


1324 


012150 


00101 1 








BNE 


S10 


1325 


012152 


006337 


020444 




Si 1 : 


ASL 


SHFCNT 


1326 


012156 


005237 


020446 






INC 


DRVCNT 


1327 


012162 


022737 


000010 


020446 




CMP 


#10, DRVCNT 


1328 


01 21 70 


001561 








BEQ 


GD1 


1329 


012172 


000763 








BR 


S13 


1330 


012174 


013700 


020446 




St 01 


MOV 


DRVCNT, RO 


1331 


012200 


104401 


001 161 






TYPE 


,$CRLF 


1332 


012204 


104401 


020450 






TYPE 


,EM1 


1333 


012210 


01 0046 








MOV 


RO.-CSP) 


1334 


012212 


104402 








TYPOC 




1335 


012214 


000300 








SteiAB 


RO 


1336 


012216 


006100 








ROL 


RO 


1337 


012220 


006100 








ROL 


m 


1338 


012222 


006100 








ROL ,. 


RO 


1339 


012224 


006100 








ROL 


RO 


1340 


012226 


006100 








ROL 


RO 


1341 


012230 


01 0037 


001352 






MOV 


RCMDSKTUP 


1342 


012234 


012737 


000000 


001422 




MOV 


#0,ERRWF 


1343 


012242 


01 2737 


000000 


001424 




MOV 


#0,ERRRF 


1344 


012250 


012737 


000000 


001426 




MOV 


#0, ERRRFC 


1345 


012256 


012737 


000000 


001430 




MOV 


#0,ERRWCH 


1346 


012264 


012737 


000000 


001432 




MOV 


#0,ERRWCS 


1347 


012272 


012737 


177750 


001416 


S12: 


MOV 


0-24. ,RWC 


1348 


012300 


012737 


164000 


001412 




MOV 


#-6144. ,WC 


1349 


012306 


01 2737 


000000 


001420 




MOV 


#0,EXTR 


1350 


012314 


01 2701 


177772 






: MOV 


#-6. ,R1 


1351 


012320 


012777 


014500 


167050 


com"° N 


MJV 


i?14500,<?»RKDJ 


1352 


012326 


053777 


001352 


167042 




SIS 


MDSKTf$P,®Rf 


1353 


012334 


105777 


167030 




1$: 


TSTB 


§>RKCS 


1354 


012340 


100375 








BPL 


1$ 


1355 


012342 


012777 


000011 


167020 




MOV 


#11 ,9RKCS 


1356 


012350 


032777 


000100 


167006 


2$: 


BIT 


#BIT6,©RKDS 


1357 


012356 


001774 








BEQ , 


as 


1358 


012360 


105777 


167004 




3$: 


TSTB 


®RKCS 


1359 


012364 


100375 








BPL 


m 


1360 


01 2366 


012777 


000015 


168774 




MOV 


#15,$RK£$ 


1361 


012374 


032777 


000100 


166762 


4§; 


BIT 


#8IT6,W?KB$ 


1362 


012402 


001774 








BEQ 


4$ 


1363 


012404 


005201 








INC 


R1 


1364 


012406 


001344 








BNE 


COM 


1365 


012410 


012737 


000000 


001410 




my 


#0,DA 


1366 


012416 


01 2777 


177777 


166762 


NEXT: 


MOV 


#1777??,€Wi 


1367 


012424 


004137 


012540 






JSR 


R1 ,10 


1368 


012430 


012777 


000000 


1667SB 




MOV 


#0,§»BA 


1369 


012436 


004137 


012540 






JSR 


R1 ,10 


1370 


012442 


01 2777 


125252 


186736 




MOV 


#1 25252, #®& 


1371 


012450 


004137 


012540 






JSR 


R1 ,10 


1372 


012454 


005177 


166726 






COM 




1373 


012460 


004137 


012540 






JSR 


R1 ,10 


1374 


012464 


062737 


000040 


00141© 




ADD 


#40, DA 


1375 


012472 


022737 


014540 


001410 




CMP 


#14540, OA 


1376 


012500 


001346 








BNE 


NEXT 


137? 


012502 








GOOTS 







SEQ 0047 



{CLEAR DRIVE COUNT 

{IS THIS SW SET? 

| YES FORMAT THIS DRIVE 



{ALL DONE? 



{TYPE 'DRIVE' 

? TYPE DRIVE 



{CLEAR OUT ERROR COUNTS. 



{SET WORD COUNT FOR READ FORMAT . 
{ SET UP WORD COUNT FOR WRITES. 
{CLEAR EXTRA BIT FOR 12 SECTOR PACK. 
{SET UP LOOP COUNT FOR THE CLEANER. 
{SET UP FOR A SEEK TO 202. 

{IS THE CONTROLER READY? 

{NO SO WAIT. 

{DO THE SEEK. 

{IS THE SEEK DONE? 

{NO SO WAIT. 

{IS CONTROLER READY? 

{NO 

{DO A DRIVE RESET. 
{IS DRIVE RESET DONE. 

{NO 

{ COUNT THE CLEANER LOOP. 

{MORE TO GO. 

{START OUT AT CYL. 0. 

{PUT ALL ONE'S IN BUFFER. 

;G0 DO THE DISK THING. 

{PUT ALL ZERO'S IN BUFFER. 

{GO DO IT AGIAN. 

{PUT A ALT. PATTERN IN BUFFER. 

{ONCE MORE. 

{ COMPLEMENT THE LAST PATTERN. 
{AND AGAIN. 

{ INCREMENT TO THE NEXT CYL. 
{ARE WE DONE WITH THIS ONE? 
{NO SO DO THE NEXT CYL. 
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1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 



012502 104401 012510 

012506 00041 1 

012532 

012532 000607 

012534 000137 001440 



1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 



? ;65$S 
64$: 



TYPE ,65$ ;;TYP£ ASCII STRING 

BR 64$ ; ;GET OVER THE ASCII 

. ASCII <CRXLF>/PACK GOOD / 

BR S11 

JMP . m START ; RESTART 



DISK I/O SUBROUTINE. 





n 1 oe /in 


1 3777 


001412 


1 66624 


10: 


MOV 


•3 CM 




1 3777 


00 J 41 


1 66622 




MOV 




1 2554 


053777 


001 352 


1 66614 




BIS 


_ Q _ 




1 3777 


001 406 


1 66604 




MOV 


|q - 






000000 


1 66572 




MOV 


toe; 


Ci l <3K7fi 




006000 


1 66564 




BIS 




01 2604 


052777 


000002 


1 66556 




BIS 




1 26 1 2 


053777 


001 420 


166550 




BIS 


■?QR 


1 2620 




000001 


1 66542 




BIS 


■3QQ 




?05777 


1 65536 




1$: 


TSTB 


zinn 


1 2632 


1 00375 








BPL 






005777 








TST 


402 


1 2640 


1 00541 








BMI 


403 


01 2642 


01 2737 


000000 


001422 




MOV 


404 














405 










JSET 


UP FOR A 


406 














407 


012650 


013777 


001416 


166514 




MOV 


408 


012656 


01 3777 


001410 


166512 




MOV 


409 


012664 


053777 


001352 


1 66504 




BIS 


410 


012672 


01 3777 


001414 


1 66474 




MOV 


411 


012700 


012777 


000000 


1 66462 




MOV 


412 


012706 


052777 


002000 


166454 




BIS 


413 


012714 


052777 


000004 


1 66446 




BIS 


414 


012722 


053777 


001420 


166440 




BIS 


415 


012730 


052777 


000001 


1 66432 




BIS 


416 


012736 


105777 


166426 




2$; 


TST8 


417 


012742 


100375 








BPL 


418 


012744 


032777 


040000 


166416 




BIT 


419 


012752 


001134 








BNE 


420 


012754 


012737 


000000 


001424 




MOV . 



SET UP FOR A WRITE/FORMAT. 

WC,@RKWC 
DA,@RKDA 

@#DSKT&9P,#RKDA 
BA,#RKBA 
#0,@RKCS 



J SET UP THE WORD COUNT REG. 
|SET UP THE DISK ADDRESS. 
5 SET THE UNIT NUMBER UP. 
5 SET UP THE BUSS ADDRESS. 
; CLEAR THE CONTROL REG. FOR SET UP. 
0BIT1O+BIT11 ,@RKCS ;SET FORMATSINHIBT INC. BITS. 



012762 
012770 
012776 
013004 
013012 
013020 
013026 
013034 
013042 



(VBIT1 ,^RKCS 

EXTR,@RKCS 

#BIT0,@RKCS 

#RKCS 

1$ 

§>RKCS 
&FERR 
#O e ERRS*F 



RWC,@RKWC 

DA,#RKDA 

MDSKTMP , #f?KDA 

R8A,f*RKBA 

0O f f*RKCS 

#BIT1.0,*RKCS 

#BIT2,@RKCS 

EXTR,@RKCS 

#BIT0,®RKCS 

@RKCS 

2$ 

#8IT14,@RKCS 

RFERR 

#0,ERRRF 



SET UP FOR A milB CHECK. 



:SET UP WRITE FUN. 
;SET UP 120R16 SECTOR PACK. 
I GO DO THE WRITE FORMAT. 
; IS WRITE FORMAT DONE? 
;NO SO WAIT. 
;WAS THERE A ERROR? 
JYES GO SERVICE IT. 
; CLEAR OUT THE ERROR COUNTER. 



J SET UP WORD COUNT REG. 

;SET UP DISK ADDRESS. 

;SET THE UNIT NUMBER . 

*,SET UP TflE BUSS ADDRESS. 

; CLEAR THE CONTROL REG. 

{ SET THE' FORMAT BIT. 

I SET UP READ FUN. 

I SET UP 12 OR 16 SECTOR PACK. 

;GO DO THE READ FORMAT. 

; IS THE READ FORMAT DONE? 

5 NO SO WAIT. 

5 WAS TRERE A ERROR? 

I YES GO SERVICE IT. 

; CLEAR OUT THE ERROR COUNT . 



013777 
01 3777 
053777 
013777 
01 2777 
052777 
053777 
052777 
052777 



001412 
001410 
001352 
001406 
000000 
004400 
001420 
000006 
000001 



166402 
1 66400 
166372 
166362 
166350 
166342 
166334 
166326 
166320 



MOV WC,@RKWC JSET UP WORD COUNT REG. 

MOV DA,@RKDA ?SET UP DISK ADDRESS. 

BIS ©0DSKTMP, $RKDA ? SET UP THE UNIT NUMBER 

MOV BA.PRKBA ;SET UP BUSS ADDRESS. 

MOV #0,#RKCS ; CLEAR THE CONTROL REG. 

BIS #BIT1 1+BIT8.OTKCS ; SET INHIBIT INCR.SSTOP ON SOFT ERROR BITS. 

BIS EXTR, @RKCS ;SET 12 OR 16 SECTOR PACK. 

BIS #8IT14-BIT2,#RKC$ ;SET UP WRITE CHECK FUN. 

BIS #BIT©,«KCS ?GO 00 THE WRITE CHECK. 
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5 CHECK HEADERS READ BY THE READ/ FORMAT. 



S£0 ©®4§ 



1434 








1435 








1436 


013050 


013703 


00141S 


1437 


013054 


005403 




1438 


013056 


063703 


001414 


1439 


013062 


013702 


001414 


1440 


013066 


023722 


001410 


1441 


013072 


001073 




1442 


013074 


020302 




1443 


013076 


001373 




1444 


013100 


012737 


000000 


1445 








1446 








1447 








1448 


013106 


105777 


16625S 


1449 


0131 12 


100375 




1450 


0131 14 


005777 


166250 


1451 


013120 


100407 




1452 


013122 


012737 


00000© 


1453 


013130 


012737 


000000 


1454 


013136 


000201 




1455 


013140 


000137 


013624 


1456 








1457 








1458 








1459 


013144 


005237 


001422 


1460 


013150 


022737 


000004 


1461 


013156 


001016 




1462 


013160 






1463 


013160 


104401 


013166 


1464 


013164 


000410 




1465 








1466 


013206 






1467 


013206 


000000 




1468 


013210 


000137 


001440 


1469 


013214 


012777 


000000 


1470 


013222 


012777 


000015 


1471 


013230 


032777 


000100 


1472 


013236 


001774 




1473 


013240 


000137 


012540 


1474 








1475 








1476 








1477 


013244 


005237 


091424 


1478 


013250 


022737 


000004 


1479 


013256 


001356 




1480 


013260 


000737 




1481 








1482 








1483 








1484 


01326$ 


005237 


001428 


148S 


01326© 


105777 


166070 


1486 


01327S 


100375 




148? 


013274 


022737 


000004 


1488 


01330t 


001401 




148S 


013304 


000743 





001430 
001432 



18614S 
168146 
1681. as 



MOV 


RWC.R3 


NEG 


f?3 


ADD 


RBA,R3 


MOV 


RBA.R2 


CMP 


DA, (2)+ 


BNE 


RFCERR 


CMP 


R3rR2' 


BNE 


MORE 


MOV 


#0 5 £RRRFG 


check on 


THE WRITE 1 


TSTB 


@RKCS 


BPL 


1$ 


TST ; 


mms 


BUI ! 


WCERRR 


MOV 


h'O , ERRWCK 


180 V 


-*0,ERflWCS 


rrs 


Rt 


« ump 


MCERR 



; ERRORS FOR WRITE FOHWVf. 



WFERR: 
SYSERl 



I? 65$ I 
64$ t 



RETRY 1 
1Ss 



INC 

CUP 
BNE 



#4,ERRWF 

RETRY 



I PUT NUMBER OF WORDS TO 
{CHECK IN REG 3. 

? SET REG 3 TO THE LAST WORD TO BE CHECKED. 

5 SET REG 2 TO START IMG ADD. OF BUFF. 

; CHECK THAT HEADER IS RIGHT. 

;THIS HEADER WAS WRONG GO SERVICE IT. 

; ARE WE DONE? 

; NO GO CHECK THE NEXT ONE. 
; CLEAR OUT THE ERROR COUNT. 



THE CONTROLER IS STILL BUSY. 
WAS THERE A ERROR? 
YES GO SERVICE IT. 

CLEAR OUT THE 

ERROR COUNTERS. 

RETURN TO THE MAIN LINE. 



? ADD ONE TO THE ERROR COUNT » 

;MAS IT HAP'PEND 4 TIMES ON THIS CYU 

;NO. 



TYPE ,65$ ; ;TYPE ASCIZ STRING 

BR 64$ J | GET OVER THE ASCIZ 

.ASCII <1S><12>/3YSTE3* ERROR/ 



HALT 

MP 

BflQV, 

MOV 

BIT 

BEQ 

jmp 



START 

*1S V 9RKCS 

#81T6 f #RKiS 

1$ 

10 



ERRORS FOR READ/FORMAT. 



RFERR t 



INC 
CMP 
BNE 
BR 



ERRRF 
#4 S ERRRF 
RETRY 
SYSER 



| LET THE TECH. BREATH. 

I RESTART THE TEST. 

J CLEAR OUT THE CONTROL REG. 

I DO A DRIVE RESET . 

|IS IT DONE. 

",uo so mu, 

J TRY AGAIN. 



I ADDONE TO ERROR COUNT. 

| HAS IT HAPPEND 4 TIMES ON THIS 6YLf 

$NO DO IT AGAIN. 

5 YES SO TELL HIM SO. 



I READ/FORMAT ERRORS FOUND §Y SOFTWARE CHECKS. 



RFCERR s INC 
1$: TSTB 
BPL 
CMP 

BS.Q 
§R 



ERRiFC 
@RMCS 

n 

*4,ERRRFC 

FAIlEO 

retry 



; ADD ONE TO ERROR COUNT. 

I WAIT FOR THE WRITE CHECK. 

lIS IT 4? 

I PUT OUT FAILED MESSAGE. 
|NQ SO GO TRY IT MAIM* 



i 



MAINDEC-1 1-DZRKI-E MACY1 1 

DZRKIF.P1 1 24-MAR-78 09:20 



30A(1052) 24-MAR-78 09:23 PAGE 30 
FORMATTER-SURFACE VERIFIER 



SEO 0050 



4Q0 


1 J30b 


042777 


000037 


1 66062 


FAI LEO: 


BIC 


#37,@RKDA 


; PUT WHICH SECTORS HEADER 


. Q 




042702 


1 77740 






BIC 


#1 77740, R2 




492 


1 3320 


060277 


1 66052 






ADD 


R2.0RKDA 


{ FAILED IN RKDA FOR THE MESSAGE. 


493 


01 3324 








FAILS 










1 3324 


1 04401 


01 3332 






TYPE 


,65$ 


; ; TYPE ASCIZ STRING 


495 


n 1 Ta*?n 

U i «3<3«3U 










BR 


64$ 


; ;GET OVER THE ASCIZ 


dQR 










5 {65$: 


.ASCIZ 


<15><12>/PACK 


FAILED AT (IN OCTAL) / 


497 


1 3370 








64$: 








4QR 




1 7701 


1 66002 






MOV 


@RKDA,R1 


; GENERAT THE CYL, SECTOR, SUR FACE 


. Q 


01 ^T>74 


0101 02 








MOV 


R1.R2 {MESSAGE FROM RKDA 


_f? n 


01 3376 


042702 


1 77770 






BIC 


it 1 7777n DO 

ft \ 1 1 1 1 \J t rs«£ 




501 


01 3402 


062702 


000260 






ADD 


#260 R2 




502 


fl 1 "5/1 Afi 
V I UD 


11 0237 


01 3565 






MOVB 


R2 SEC+1 




503 


1 34 1 2 


004337 


01 3612 






USR 










04 2702 


1 77776 






BIC 


il 1 7777C DO 




505 


1 3422 


062702 


000260 






ADD 






506 


1 3426 


1 1 0237 


01 3564 






MOVB 






507 


01 3432 


004337 


01 361 6 






USR 


R3»5HF1 




508 




04 2702 


1 77776 






BIC 


#177776 R2 




509 


01 3442 


062702 


000260 






ADD 


#250 R2 




510 


01 3446 


1 1 0237 


01 3576 






MOVB 


oo'lmL 




51 1 


01 3452 


004337 


01 3616 






JSR 


R3 , 5HP 1 




512 


01 3456 


042702 


1 77770 






BIC 


if 1 7777ft BO 




513 


01 3462 


062702 


000260 






ADD 


^260 R2 




514 


01 3466 


1 1 0237 


013554 






MOVB 


do rvi a.0 




515 


01 3472 


004337 


01 361 2 






JSR 


no cupo 




516 




042702 


1 77770 






BIC 


u 1 7777rt DO 

if i f i / / U| HA 




517 


01 3502 


062702 


000260 






ADD 


ijocn do 

«r <cOU , K<f 




518 


01 3506 


1 1 0237 


013553 






MOVB 


R2.CYL+1 




519 


1 35 1 2 


004337 


013612 






JSR 


R3.SHF3 




520 


01 351 6 


042702 


1 77774 






BIC 


#177774, R2 




521 


01 3522 


062702 


000260 






ADD 


#260, R2 




522 


1 3526 


1 1 0237 


01 3552 






MOVB 


R2.CYL 




523 


01 3532 


1 04401 


01 3542 






TYPE 


,1$ 


• tvdc ni it tub ncueniTcn ueeetre 
{ 1 Trt UU 1 1 He utNcnATcU McssAut 


524 




0001 37 


01 3604 






JMP 


STOP 


• RVDACC TUB f Ml TMC IKCClRC 


525 


01 3542 


00501 5 


054503 


0271 14 


1$: 


.ASCII 


<15><12>/CYL. 


/ 


526 


01 3550 


020040 














527 


1 3552 


030060 


020060 




CYL: 


.ASCII 


/000 / 




528 


013556 


042523 


027103 


020040 




.ASCII 


/SEC. / 




529 


013564 


030060 


040 




SEC: 


.ASCII 


/oo / 




530 


01 3567 


1 23 


051 125 


027106 




.ASCII 


/SURF. / 




531 


1 3574 


020040 














532 


01 3576 


020060 


005015 


000 


SuR: 


.ASCIZ 


/0 /<15><12> 




533 




01 3604 








. EVEN 






534 


01 3604 


000000 






STOP: 


HALT 




J LET OPER DO HIS THING. 


535 


01 3606 


0001 37 


001 440 






JMP 


START 


{ RESTART THE TEST. 


536 
537 










• SHIFT 


SUBROUTINES. 




538 


















539 


013612 


006201 






SHF3 : 


ASR 


R1 


{HERE FOR A SHIFT OF 3. 


540 


013614 


006201 






SHF2: 


ASR 


R1 


J HERE FOR A SHIFT OF 2. 


541 


013616 


006201 






SHF1 : 


ASR 


M 


{HERE FOR A SHIFT OF 1. 


542 


013620 


010102 








MOV 


R1 ,R2 


{ PUT RESULTES IN THE WORKING REG. 


543 


013622 


000203 








RTS 


R3 




544 


















545 










♦ERRORS 


FOR WRITE CHECK. 





MAINDEC-1 1-DZRKI-E MACY1 1 30A(1052) 24-SMR-78 09:23 PAGE 31 



D2RKIF 


P1 1 


24-MAR-78 


09:20 




FORMATTER-SURFACE VERIFIER 




1546 


















1547 


013624 


032777 


040000 


165536 


WCERR: 


BIT 


#BIT14,*RKCS 


{WAS IT A HARD ERROR. 


1548 


013632 


001010 








BNE 


WCHERR 


{YES GO PRQSSES IT. 


1549 


013634 


005237 


001432 






INC 


ERRWCS 


{ADD 1 TO THE SOFT ERROR COUNT. 


1550 


013640 


022737 


000004 


001432 




CMP 


#4,ERRWCS 


{HAS THERE BEEN 4 OF THEM? 


1551 


013646 


001626 








BED 


FAIL 


{YES PUT OUT FAILED MESSAGE. 


1552 


013650 


000137 


012540 






JMP 


10 


{NO SO TRY AGAIN. 


1553 


013654 


005237 


001430 




wcherr: 


INC 


ERRWCH 


{ADD 1 TO THE HARD ERROR COUNT. 


1554 


013660 


022737 


000004 


001430 




CMP 


#4,ERRWCH 


{HAS THERE BEEN 4 OF THEM? 


1555 


013666 


001402 








BEQ 


SYSERR 


{YES PUT OUT SYSTEM ERROR MESSAGE. 


1556 


013670 


000137 


013214 






JMP 


RETRY 


{NO SO TRY AGAIN. 


1557 


013674 


000137 


013160 




SYSERR : 


JMP 


SY5ER 




1558 


















1559 










{BUFFERS. 






1560 


















1561 


013700 


000000 






BUFF: 


.WORD 







1562 


013702 


000030 






RBUFF: 


. BLKW 


30 




1563 


















1564 


















1565 


















1566 


















1567 


















1568 












.SBTTL 


RK03 CONTROL PAUEl TEST 


1569 


















1570 


013762 








BAD. ON: 








1571 


013762 


104401 


013770 






TYPE 


,65$ 


{ {TYPE ASCIZ STRING 


1572 


013766 


000401 








BR 


64$ 


{{GET OVER THE ASCIZ 


1573 










{{65$: 


.ASCII 


/?/ 


1574 


013772 








64$: 






1575 


013772 








SECT.©: 








1576 


013772 


104401 


014000 






TYPE 


,65$ 


{ {TYPE ASCIZ STRING 


1577 


013776 


000424 








BR 


04$ 


{{GET OVER THE ASCIZ 


1578 










{{65$: 


.ASCIZ 


<15X12>/RK0S CONTROL PANEL TEST, WHICH DRIVE?/ 


1579 


014050 








64$: 








'1580 


014050 


104407 








RDCHR 






1581 


014052 


01 1600 








MOM , 


(SP),R0 




1582 


014054 


104403 








TYPOS 




1583 


014056 


001 








.BYTE 


1 




1584 


014057 


000 








.BYTE 







1585 


014060 


162700 


000060 






SUB 


#60, RO 




1586 


014064 


100736 








BMI 


BAD. ON 




1587 


014066 


022700 


000010 






CMP 


#10, RO 




1588 


014072 


003733 








BLE . 


BAD. ON 




1589 


014074 


1 1 0037 


001314 






MOVB 


RO,0*DRIVg 




1590 


014100 


000300 








SWAB 


RO 




1591 


014102 


006100 








ROL 


RO 




1S92 


014104 


006100 








ROL 


RO 




1593 


014106 


006100 








ROL 


RO 




1594 


014110 


006100 








ROL 


RO 




1S95 


0141 12 


006100 








ROL 


RO 




1596 


014114 


010037 


001 SSI 






MOV 


R0,@#0SKTOP 




1597 


014120 


104401 


0141&© 






TYPE 


,67$ 


1 5 TYPE ASCIZ STRING 


1598 


014124 


000414 








BR 


66$ 


{ {GET OVER THE ASCIZ 


1599 










{{67$: 


.ASCII 


<15X12>/MOUNT 


PACK ON DRIVE#/ 


1600 


01415S 








S@$: 






1601 


014156 


013746 


001314 






f$0¥ 


DRI¥E,»CSP) 


{{SAVE DRIVE FOR TYPEOUT 



MAINDEC-11-DZRKI-E MACY11 30A<1052) 24-MAR-78 09:23 PAGE. 32 

DZRKIF.P11 24-MAR-78 09:20 RKOS CONTROL PANEL TEST 



$m 00S2 



1 502 


01 41 62 


1 04403 




1 603 


01 41 64 


001 




1 604 


0141 65 


000 




1 605 


014166 


104401 


014174 


1 606 


0141 72 


000425 




1 607 








1 608 


01 4246 






1 609 


014246 


104401 


014254 


1610 


014252 


000423 




1611 








1612 


1 4322 






1613 


01 4322 


1 04401 


014330 


1614 


01 4326 


000425 




1615 








1616 


01 4402 






1617 


01 4402 


000000 




1618 


01 4404 


004737 


016260 


1619 


014410 


104401 


014416 


1 620 


01 44 1 4 


000430 




1 621 








1 622 


01 4476 






1 623 


014476 


000000 




1624 


01 4500 


004737 


016470 


1 625 


01 4504 


104401 


014512 


1 626 


014510 


000426 




1 627 








1 628 


01 4566 






1 629 


01 4566 


000000 




1 630 


01 4570 


004737 


016260 


1631 


014574 


01 3777 


001352 


1 632 


01 4602 


01 2777 


00001 7 


1633 


01 461 


004737 


005614 


1634 


014614 


105777 


184550 


1 635 


014620 


1 00375 




1 636 


01 4622 


004737 


016470 


1637 


014626 






1 638 


01 4626 


1 04401 


014634 


1 639 


014632 


000431 




1 640 
1 641 


01 471 6 






1 642 


01471 6 


104401 


014724 


1 643 


01 4722 


000414 




1 644 








1 645 


014754 






1 646* 


014754 


104401 


014762 


1647 


014760 


000420 




1 648 








1 649 


01 5022 






1 650 


015022 


000000 




1651 


015024 


104401 


015032 


1652 


015030 


000426 




1653 








1654 


015106 






1655 


015106 


104401 


015114 


1656 


0151 12 


000420 




1657 









; ;69$: 

68$: 



; ;71$: 

70$: 



; ; 73$ : 
72$: 



74$ l 



; ;77$: 



164574 
1 84560 



1$: 

PRTTWO: 



;;65$: 

64$? 



i;87$! 
66$: 



5 569$'. 
68$: 



?;71$: 

70$: 



f ?73$S 



TYPOS 
. BYTE 
. BYTE 

TYPE 
BR 

. ASCIZ 

TYPE 
BR 

.ASCII 

TYPE 
BR 

.ASCII 

HALT 
JSR 

TYPE 
BR 

.ASCII 

HALT 
JSR 

TYPE 
BR 

.ASCIZ 

HALT 

JSR 

MQV 

MOV 

JSR 

TSTB 

BPL 

JSR 

TYPE 
BR 

.ASCII 

TYPE 
BR 

. ASCIZ 

TYPE 
BR 

.ASCII 

HALT 
TYPE 
BR 

.ASCII 

TYPE 
BR 

.ASCII 



1 


,69$ 
68$ 



;G0 TYPE— OCTAL ASCII 
; TYPE 1 DIGIT(S) 

; SUPPRESS LEADING ZEROS 
; TYPE ASCIZ STRING 
; GET OVER THE ASCIZ 



<15><12>/PLACE DRIVE IN RUN ; SHOULD SEE THE RUM,/ 

,71$ ; ; TYPE ASCIZ STRING 

70$ ; J GET OVER THE ASCIZ 

<15Xl2>/P0WESt» AND ON CYLINDER LAMPS LIGHT./ 

,73$ *, ".TYPE ASCIZ STRING 

72$ ?;GET OVER THE ASCIZ 

<1SX12>/MA&S DRIVE WRITE ENABLE PRESS CONTINUE/ 



PCWRRDCK ;G0 WRITE O'S, RD O'S. CHECK 

,75$ ; ; TYPE ASCIZ STRING 

74$ : ; GET OVER THE ASCIZ 

<15X12Xt§><12>/WRITE PROTECT THE DRIVE THEN PRESS CONTINUE/ 



PC.WRPRO ;G0 TRY OVERWRITE 

,77$ J {TYPE ASCIZ STRING 

76$ ; ; GET OVER THE ASCIZ 

<1 5X1 2X15X1 2>/CLEAR WRITE PROTECT THEN PRESS CONTINUE/ 



PC.WRRDCK 

WDSKTMP f 9RKDA 

#17,*RKCS 

PC.SMTME 
@RKCS 

1$ 

PC.WRPRO 



;G0 WRITE O'S, RD O'S, CHECK 

;SET UP DRIVE* 

; FUNCTION WRITE PROTECT 

J GO WAIST TIME FOR RK11-C 

; IS CONTROL READY SET 

;IF NO, BRANCH 

? GO TRY OVERWRITE OF SERQ'S 



,61$ JJTYPE ASCIZ STRING 

64$ ; ;GET OVER THE ASCIZ 

<15X12X15X12>/CAUTI0N! TRY TO OPEN THE DOOR, DO NOT FORCE:/ 

,67$ ; ; TYPE ASCIZ STRING 

66$ ; ;GET OVER THE ASCIZ 

<15X12»/DOOR SHOULD NOT OPEN!/ 

,69$ ; ; TYPE ASCIZ STRING 

68$ ; ;GET OVER THE ASCIZ 

<1SX12>/PRESS CONTINUE WHEN FINISHED/ 



,71$ ; ? TYPE ASCIZ STRING 

70$ ; ; GET OVER THE ASCIZ 

<1 5X18X1 5X1 2>/PUT DRIVE IN LOAD, WAIT TOR LOAD LIGHT/ 



,73$ ", | TYPE ASCIZ STRING 

72$ ?|SET OVER THE ASCIZ 

<1SX1S>/TOESS CONTINUE &HEN FINISHED/ 
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SEO 0353 



1658 


015154 








72$: 




1659 


015154 


000000 








HALT 


1660 


015156 


01 3777 


001352 


164212 




MOV 


1661 


015164 


012777 


000015 


164176 




MOV 


1662 


015172 


004737 


005614 






JSR 


1663 


0151 76 


105777 


164166 




1$: 


TSTB 


1664 


015202 


100375 








BPL 


1665 


015204 


032777 


100200 


184184 




BIT 


1666 


015212 


001057 








BNE 


1667 


015214 


104401 


015222 






TYPE 


1668 


015220 


000437 








BR 


1669 










;;75$s 


. ASCIZ 


1670 


015300 








74$ 5 




1671 


015300 


104401 


015306 






TYPE 


1672 


015304 


000422 








BR 


1673 










i-;77$: 


. ASCIZ 


1674 


015352 








76$: 




1675 


015352 


032777 


140000 


164919 


2$: 


BIT 


1676 


015360 


001015 








BNE 


1677 


015362 


104401 


015370 






TYPE 


1678 


015366 


000412 








BR 


1679 










;?79$s 


.ASCII 


1680 


015414 








78$ S 




1681 


015414 


012777 


000001 


183748 


3$: 


MQV 


1682 


015422 


004737 


005614 






JSR 


1683 


015426 


105777 


163736 




4$: 


TSTB 


1684 


015432 


100375 








BPL 


1685 


015434 


032777 


100000 


163724 




BIT 


1686 


015442 


001425 








B EC- 


1687 


015444 


104401, 


015452 






TYPE 


1688 


015450 


000422 








BR 


1689 










? ;81$s 


•ASCII 


1690 


015516 








80$: 




1691 


015516 


032777 


140000 


1 83644 


S$: 


BIT 


1692 


015524 


001431 








BEQ 


1693 


015526 


104401 


015534 






TYPE; 


1694 


015532 


000426 








BR 


1695 










1 ;83$: 


.ASCII 


1696 


015610 








82$: 




1697 


015610 








X: 




1698 


015610 


104401 


01561S 






TYPE 


1699 


015614 


000422 








BR 


1700 










??65$: 


.ASCIZ 


1701 


015662 








©4$: 




1702 


015662 


104401 


015670 






TYPE 


1703 


015666 


000425 








BR 


1704 










j ;67$: 


.ASCII 


1705 


015742 








@@$: 




1706 


015742 


104401 


0157S0 






TYPE 


1707 


015746 


000426 








m 


1708 












.ASCII 


1709 


016024 












1710 


016024 


000000 






xx : 


HALT 


1711 


016026 


104401 


016034 






TYPE 


1712 


016Q3S 


©00422 








BR 


1713 










?S6S$1 


.ASCIZ 



MDSKTR/IP.fSRKDA J SET UP DISK ADDRESS 



#15,@RKCS 
PCSMTME 

macs 

. 1$ 

#1 00200 ,ORKER 

2$ 
,75$ 
74$ 



ISSUE A DRIVE RESET 
KILL TIME FOR RK11-C 
CONTROL READY SET? 
IF NO, BRANCH 
ORE SET 
IF YES BRANCH 
; TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



<1SX12>/DRE<*BX716 OF RKER DID NOT SET IF M RK1 1—C/ 

,77$ iiTYPE ASCIZ STRING 

76$ ; ; GET OVER THE ASCIZ 

<15X12>/QR BXT07 DID WOT SET IF AN RK11-D/ 



01 40000 ,0RKCS 

3$ 
,79$ 
78$ 



<15Xl£>/ERRQR DID WOT SET/ 



DID HARD ERROR ON ERROR SET 
BRANCH IF YES 
; TYPE ASCIZ STRING 
J GET OVER THE ASCIZ 



#1 ,#RKCS 
PC,-SiTM€ 

4$ 

#BIT15,@RK£f! 

5$ 

,81$ 

80$ 

<15X12>/CQNTR0L 

#i4©ooo, mm$ 

,83$ 
82$ 



ISSUE A CONTROL RESET 
WAIST TIME 
CONTROL READY SET 

IF f*IO, BRANCH 
•'ORE' CLEAR 
IF YES BRANCH 

I TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 

RESET DID NOT CLEAR 8 TOE 4 / 

ERROR BITS CLEAR 
IF YES BRANCH 
;TYPE ASCIZ STRING 

; GET OVER THE ASCIZ 



<i 5><i 2>/control reset did not clear * error* . hkcs/ 



,65$ llTYPE ASCIZ STRING 

64$ ??GET OVER THE ASCIZ 

<1 5X1 3X1 5X1 2>/0PEN THE DOOR , PUT DRIVE IN StUW/ 

,67$ | ; TYPE ASCIZ STRING 

©6$ ; j GET OVER THE ASCIZ 

<15X13>/CAUTX0N! IF RUN LIGHT ON ERROR! DEPRESS/ 

,69$ ; ; TYPE ASCIZ STRING 

68$ ? | GET OVER THE ASCIZ 

<15X12>/L0AD IMMEDIATELY, CONTINUE SMEN FINISHES/ 



,65$ | j TYPE ASCIZ STRING 

841 | | GET OVER THE ASCIZ 

« 1 ®X 1 2X 1 %>< 1 a> /REMOVE THE PACK, CLOSl THE DOOR/ 
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SEQ 00S4 



714 


016100 








64$ • 








715 


016100 


104401 


016108 






TYPE 


,67$ 


5 ; TYPE ASCIZ STRING 


716 


016104 


000423 








BR 


66S 


; ; GET OVER THE ASCIZ 


717 










;67$: 


.ASCII 


<15><12>/PUT DRIVE IN RUN, DRIVE SHOULD NOT/ 


718 


016154 








66$: 








719 


016154 


104401 


016162 






TYPE 


,69$ 


; J TYPE ASCIZ STRING 


720 


016160 


000423 








BR ' 


68$ 


; ; GET OVER THE ASCIZ 


721 










;;69$: 


. ASCII 


<15><12>/RUN. . . 


. INTERCLOCKS HAVE BEEN CHECKED/ 


722 


016230 








68$s 








723 


016230 


104401 


. 016936 






TYPE 


,71$ 


; J TYPE ASCIZ STRING 


724 


016234 


000407 








BR 


70$ 


\ ;GET OVER THE ASCIZ 


725 










; ?71$S 


.ASCI2 


<15><12>/DONE! 


/ 


726 


016254 








70$: 








727 


016254 


000137 


001440 






JMP 


WSTART 




728 


016260 


005037 


001362 






CLR 


WPATTRN 


jMAKE A PATTERN OF ZERO'S 


729 


016264 


01 3777 


001352 


183104 




UQM 


WDSKTMP , IPRKD& 


! SET UP DRIVE ADDRESS 


730 


016272 


01 2777 


000001 


163070 




MOM 


#1 ,©RKCS 


; ISSUE A CONTROL RESET 


731 


016300 


004737 


005614 






JSR 


PC.SMTME 




732 


016304 


105777 


163060 




S$: 


TSTB 


9RKCS 


; CONTROL READY SET 


733 


016310 


100375 








BPL 


5$ 


; IF NO BRANCH 


734 


016312 


013777 


001352 


1630S6 




MOV 


@#DSKTMP,0RKDA 


;SET UP DRIVE ADDRESS 


735 


016320 


012777 


001362 


163046 




MOV 


IPATTRN.CRKBA 


;GET BUSS ADDRESS 


736 


016326 


013777 


001344 


163036 




MOV 


®#SECCNT,0RKWC 


;WORD COUNT 1 SECTOR 


737 


016334 


01 3777 


001354 


163026 




MOV 


WWRITCS.OTKCS 


; IBA + WRITE + GO 


738 


016342 


004737 


005614 






JSR 


PC , SMTME 


JKILL TIME FOR RK11-C 


739 


016346 


105777 


163016 




IS: 


TSTB 


@RKCS 


{CONTROL READY SET 


740 


016352 


100375 








BPL 


1$ 


;IF NO, BRANCH 


741 


016354 . 


01 3777 


001352 


163014 




MOV 


@#DSKTMP,#RKDA 


;SET UP RK REGISTERS 


742 


016362 


01 2777 


007356 


163004 




MOV 


#RDBUFF,#RKBA 


J TO READ ONE SECTOR 


743 


016370 


013777 


001344 


162774 




mov 


«SECCNT,@RKWC 


;TO THE READ BUFFER 


744 


016376 


01 3777 


001356 


1 62764 




MOV 


##READCS,#RKCS 




745 


016404 


004737 


005614 






JSR 


PC, SMTME 


J KI LL TIME FOR RK11-C 


746 


016410 


105777 


162754 




2$: 


TSTB 


macs 


; CONTROL READY SET 


747 


016414 


100375 








BPL 


2$ 


I IF NO, BRANCH 


748 


016416 


01 2704 


0073S8 






MOV 


#RDBUFF,R4 


J GET BUFFER TO R4 


749 


016422 


005005 








CLR 


R5 


;SET UP TO COMPARE 


750 


016424 


020524 






3$: ' 


CMP 


R5, (R4)+ 


; FOR ZERO'S 


751 


016426 


001414 








B£Q 


4$ 


J IF OK, BRANCH 


752 


016430 


104401 


016436 






TYPE 


,65$ 


; ; TYPE ASCIZ STRING 


753 


016434 


000410 








BR 


84$ 


; ;GET OVER THE ASCIZ 
FAILED/ 


754 










?;65$s 


. ASC12 


<15X12>/&JRI?B 


755 


016456 








64$: 








756 


016456 


000700 








BR 


WRRDCK 


JGO BACK TRY AGAIN 


757 


016460 


022704 


010356 




4$: 


CMP 


#MANSEL, m 


*, DONE ALL CHECKS 


758 


016464 


001357 








BNE 


3$ 


;IF NO, BRANCH 


759 


016466 


000207 








RTS 


PC 


5 IF YES, RETURN 


760 


016470 


032777 


000040 


1 62668 


WRPRO: 


BIT 


#BIT5,@RK0S 


;BIT 5 ON 


761 


016476 


001021 








BNE 


t$ 


; IF YES, BRANCH 


762 


016500 


104401 


016506 






TYPE 


,85$ 


; ; TYPE ASCIZ STRING 


763 


016504 


000416 








BR 


64$ 


J JGET OVER THE ASCIZ 


764 










;-;65$: 


.ASCIZ 


<15X12>/WPS»BIT5 OF RKDS NOT SET/ 


765 


016542 








64$: 








766 


016542 


012737 


177777 


001362 


1$: 


MOV 


0177777, @*PATTRN ;GO LOAD ALL 


767 


016550 


013777 


001352 


182620 




MOV 


<P#DSKTMP,§*RKDA 


; RK REGISTERS 


768 


016556 


01 2777 


001362 


162610 




MOV 


#PATTRN,@RKBA 


*,TO WRITE 


769 


016564 


013777 


001344 


162600 




MOV 


WSICCMT,#RKWC 


; ALL ONES (WITH WRITE LOCK) 



MAINDEC 


-1 1-DZRKI 


-E 


MACY11 


30A(1052) 


24-MAR-78 09:23 PAGE 35 




DZRKIF. 


P1 1 2^! 


l-MAR-78 


09:20 




W05 CONTROL PANEL TEST 




1770 


016572 


013777 


001354 


1 62570 




MOV 


IWRITCS*#RKCS 


;OVER THE ZERO'S 


1771 


016600 


004737 


005614 






USR 


PC.SMTME 


; KI LL TIME FOR RK11-C 


1772 


016604 


105777 


162560 




2S: 


TSTB 


$RKCS 


•.CONTROL READY SET? 


1773 


016610 


■ 00375 








BPL 


2$ 


; IF NO, BRANCH 


1774 


016612 


032777 


020000 


162S4B 




BIT 


#BITl3 t @tWER 


;WLO BIT SET 


1775 


016620 


001032 








BNE 


3$ 


;IF YES BRANCH 


1776 


016622 


104401 


016630 






TYPE 


,67$ 


; ; TYPE ASCIZ STRING 


1777 


016626 


00042" 








BR 


66$ 


; ;GET OVER THE ASCIZ 


1778 










;;67$: 


.ASCIZ 


<15X12>/EXPECTED WL0-BIT13 OF RKER BUT DID NOT SET/ 


1779 


016706 








66$; 








1780 


016706 


012777 


000001 


1 62454 


3$: 


MOV 


#1 ,®RKCS 


;D0 A CONTROL RESET 


1781 


016714 


004737 


005614 






JSR 


PC.SMTME 


; KI LL TIME FOR RK11-C 


1782 


016720 


105777 


162444 




4$: . 


TSTB 


PRKCS 


^CONTROL READY SET? 


1783 


016724 


100375 








BPL 


4$ 


;IF NO BRANCH 


1784 


016726 


032777 


020000 


1 62432 




BIT 


#BIT13,«KER 


;WLO BIT CLEAR 


1785 


016734 


001431 








BEQ 


RDCHKO 


5 IF YES, BRANCH 


1 786 


016736 


104401 


016744 






TYPE 


,69$ 


; ; TYPE ASCIZ STRING 


1787 


016742 


000426 








BR ' 


68$ 


5 : GET OVER THE ASCIZ 


1788 










; ;69$: 


.ASCIZ 


<15><i2>/C0NTR0L RESET DID NOT CLEAR 'WLO* OF RKER/ 


1789 


017020 








68$: 








1790 


017020 


01 3777 


001352 


162350 


RDCHKOl 


MOV 


MDSKTMP,@RKDA 


,-SET UP RK REGISTERS 


1791 


017026 


01 2777 


007356 


1 62340 




MOV 


fRDBUFF ,@RKBA 


;TO READ SECTOR 0. 


1792 


017034 


013777 


001344 


162330 




MOV 


®#SECCNT,»RKWC 


; CYLINDER 0. HEAD 


1793 


017042 


013777 


001356 


1 62329 




MOV 


«REA0CS,#KCS 


;TO ENSURE NO WRITE TOOK PLACE 


1794 


017050 


004737 


005614 






JSR 


PC, SMTME 


f KILL TIME 


1795 


017054 


105777 


162310 




3$: 


TSTB 


#RKCS 




1796 


017060 


100375 








BPL 


3$ 




1797 


017062 


012703 


000005 






WOV 


#5,113 




1798 


017066 


01 2704 


007356 






MOV 


#RDBUFF , R4 


{CHECK TO INSURE NO WRITE 


1799 


017072 


005005 








CLR 


R5 


; TOOK PLACE 


1800 


017074 


020524 






1$: 


CMP 


R5,(R4}4- 


JWITH WRITE LOCK 


1801 


017076 


001474 








BEQ 


2$ 




1802 


017100 


005303 








DEC 


R3 


;DEC THE ERROR COUNT 


1803 


017102 


001475 








BEQ 


4S 


;IF ZERO BRANCH 


1804 


017104 


104401 


017112 






TYPE 


,65$ 


; ;TYPE ASCIZ STRING 


1805 


017110 


000422 








BR , 


64$ 


; ;GET OVER THE ASCIZ 


1806 










t ;65$: 


.ASCIZ 


<15><12»A'RXTE 


OCCURRED WITH WRITE PROTECT/ 


1807 


017156 








64$: 








1808 


017156 


005744 








T.ST 


-CR4) 




1809 


017160 


104401 


017168 






TYPE 


,67$ 


II TYPE ASCIZ STRING 


1810 


017164 


000410 








BR 


66$ 


J ;GET OVER THE ASCIZ 


1811 










f ;6?$s 


.ASCII 


<15X12>/BUFFER 


ADDRss/ 


1812 


017206 








66$: 








1813 


017206 


010446 








MOV 






1814 


017210 


104403 








TYPOS 




1815 


017212 


006 








.BYTE 


© 




1816 


017213 


001 








. BYTE 


1 




1817 


017214 


104401 


017222 






TYPE 


,®s$ 


5? TYPE ASCIZ STRING 


1818 


01 7220 


000406 








BR 


@s§ 


| J GET OVER THE ASCII 


1819 










;;69$: 


. ASCIZ 


/ EXPCTD**/ 




1820 


017236 








68$: 








1821 


017236 


010546 








MOV 


K5.-CSP) 




1822 


017240 


104404 








TYPON 




1823 


017242 


104401 








TYPE 




?| TYPE ASCIZ STRING 


1824 


017246 


000406 








srt 


?0$ 


; ;GET OVER THE ASCIZ 


1828 














/ RECVD»/ 
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SEQ 0086 



1826 


017264 




1 827 


01 7264 


01 2446 


1828 


017266 


104404 


1829 


017270 


022704 


1830 


017274 


001277 


1831 


017276 


C00207 


1832 






1833 






1834 
1835 







2$; 

45*. 



(R4)+,-(SP) 

mms£ l,R4 
t$ 

PC 



; FINISHED ALL 

;IF NO, BRANCH 



MAINDEC-1 1-DZRKI-E 



DZRKI F. 


P1 1 24-W78 


095 20 


1836 








1837 








1838 








1839 








1840 








1841 
1842 








1843 








1844 


017300 


000240 




1845 


017302 


01 2777 


000001 


1846 


017310 


105777 


162054 


1847 


017314 


100375 




1848 


017316 


012700 


020614 


1849 


017322 


005001 




1850 


017324 


005002 




1851 








1852 


017326 


010210 




1853 


017330 


010277 


162042 


1854 


017334 


105777 


162024 


1855 


017340 


100021 




1856 
1857 


017342 


104401 


020450 


1858 


017346 


010146 




1859 


017350 


104402 




1860 


017352 


104401 


020461 


1861 


017356 


052710 


000300 


1862 








1863 








1864 


017362 


012777 


000015 


1865 


017370 


004737 


005614 


1866 


017374 


032777 


000100 


1867 


017402 


001774 




1868 








1869 


017404 


005720 




'1870 


017406 


005201 




1871 


017410 


062702 


020000 


1872 


017414 


001344 




1873 








1874 


017416 


104401 


001161 


1875 








187S 








1877 








1878 








1879 








1880 
1881 


017422 


012700 


020S14 


1882 
1883 


017426 


005001 




1884 


017430 


01 1077 


1 61 742 


1885 


017434 


042777 


017777 


1886 


017442 


105777 


161716 


1887 


017446 


100044 




1888 








1889 


017450 


105710 




1890 


017452 


100454 




1891 


017454 


052710 


000200 
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SEQ 00S7 



J THE FOLLOWING REVISION WAS MADE BY JIM KAPADIA 

.SBTTL CONTROL PANEL TEST # 2 

JTHIS IS THE ENTRY POINT INTO CONTROL PANEL TEST #2. AL 
; THE DRIVES THAT ARE PRESENT AND IN 1 RDY 1 CONDITION ARE 
; REPORTED (ON LINE). 



162000 



SECT. 41 


NOP 








MOV 


#1,»RKCS 




3$: 


TSTS 


fsRKCS 






BPL 


3$ 






MOV 


#DRXVO,f?0 






CLR 


R1 






CLR 


R2 




IS: 


MOV 


R2,(R0) 


|SET UP ADDRESS TABLE 




MOV 


R2.&RKM 


J ADDRESS THE DRIVE 




TSTS 


0RKDS 


SIS IT PRESENT? 




BPL 


2$ 


;no 




TYPI 


,mt 


; TYPE 'DRIVE' 




MOV 




; TYPE OUT DRIVE # 




TYPQC 








TYPE 




{TYPE 'ON LINE' 




BIS 




JSET BITS INDICATING THIS 








1 DRIVE PRESENT 




MOV 


#1S,4MtKCS 


? ISSUE A DRIVE RESET 




USR 


PC.SMTI3E 


•.ALLOW SOME TIME 


4$! 


BIT 


*rws,«rkds 


S&JAIT FOR fWS ROY 




BEQ 


4$ 




2$: 


TST 


(R0)+ 






INC 


R1 






ADD 


#20000,R2 


;NXT DRIVE 




BNE 


1$ 


; ALL DONE? 




TYPE 


,$OSLF 





J THI S CODE CHECKS THE CONDITION OF 'DRY' BIT IN RKDS FOR EVERY 
; DRIVE. IF 'DRY' IS SET DRIVE IS SAID TO BE 'ON LINE* . OTHERWISE IT 
|IS OFFLINE.. IF THE 1 DRY 1 BIT HAS CHANGED FROM LAST TIME , THEN 
;IT IS REPORTED. IF THERE IS NO CHANGE NOTHING IS REPORTED. 



BEGCT : 



BIC 

TSTS 
BPL 

TSTS 
BM! 

SIS 



#DRIV0,R0 

81 



(R0) t ® 

#17m,@RK©& 



5 INITIALIZE POINTERS 



1$ 

(RO) 

NKT1 

#BXT7 ( ('R0) 



; ADDRESS A DRIVE 

J MASK OUT NON DR# BITS 

5 IS THIS DRIVE ON LINE? 

:N0 

;YES 

;WAS IT 'ON LINE' LAST TIME? 

I YES, NO MESSAGE TO REPORT 

| IT CHANGED FROM OFF LINE TO ON 
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SEQ 0058 



1892 


017460 


104401 


020450 


1893 


01 7464 


01 0146 




1894 


01 7466 


104402 




1895 


017470 


1 04401 


020461 


1896 


01 7474 


032777 


000040 


189? 


01 7502 


001417 




1898 


01 7504 


1 04401 


01 7512 


1899 


017510 


000414 




1900 








1901 


017542 






1902 


017542 


01 2777 


000017 


1903 


01 7550 


1 05777 


161614 


1904 


■ 01 7554 


100375 




1905 


017556 


000412 




1 906 








1907 


017560 


105710 




1908 


01 7562 


1 0001 




1909 


01 7564 


1 04401 


020450 


1910 


017570 


01 0146 




191 1 


017572 


104402 




1912 


017574 


104401 


020473 


1913 


017600 


04271 


000200 


1914 








1915 








1 916 








1 91 7 








1918 








1919 








1 920 








1 921 


017604 


105777 


161554 


1922 








1 923 


017610 


100033 




1924 








1925 


017612 


032777 


000040 


1926 


01 7620 


001014 




1 927 








1928 


017622 


032710 


000004 


1 929 


01 7626 


001424 




1 930 








1 931 


01 7630 


1 04401 


020450 


1 932 


01 7634 


01 0146 




1933 


01 7636 


1 04402 




1 934 


01 7640 


04271 


000004 


1 935 


017644 


1 04401 


020521 


1 936 


01 7650 


00041 3 




1 937 








1 938 


01 7652 


03271 


000004 


1939 


017656 


001010 




1940 








1941 








1942 


017660 


104401 


020450 


1943 


017664 


010146 




1944 


017666 


104402 




1945 


017670 


104401 


020506 


1946 


017674 


052710 


000004 


194? 









; ;6S$! 
64$: 
2$: 
3$: 



1$: 



TYPE 

MOV 

TYPOC 

TYPE 

BIT 

BED 

TYPE 

BR 

.ASCIZ 

MOV 
TSTB 

BPL 
BR 

TSTB 

BPL 

TYPE 

MOV 

TYPOC 

TYPE 

BIC. 



,EM1 { LINE, REPORT MESSAGE 
R1,-(SP) 

,EM2 ; TYPE 1 ON LINE' 

IWPS.0RKDS ; WRITE ENABLED? 

2$ ;yes, ok 

,65$ ; ;TYPE ASCIZ STRING 

64$ ; ; GET OVER THE ASCIZ 
<15><12>/ER0R.N0T WRT ENABLED/ 



#17,@RKCS 

tRKCS 

3$ 

NXT1 

(RO) 
NXT1 

,EM1 

R1 ,-(SP) 

,EM3 

#BIT7, (RO) 



; WRITE PROT THE DISK 



{WAS THIS DRIVE OFF LINE LAST 
; TIME? BRNCH IF YES' 
;IF NOT , REPORT THE CHANGE 
? TYPE DRIVE 

{ TYPE 1 OFF LINE' , 

| CLEAR BIT TO INDICATE THIS 

;DRIVE 'OFF LINE* 



f THIS CODE CHECKS 'HPS' BIT FOR EVERY DRIVE THAT IS IN 'DRY' 
{CONDITION (ON LINE). IT REPORTS ANY CHANGE IN THE CONDITION OF 
5 THE 'WPS' BIT. IF THERE WAS NO CHANGE FROM LAST TIME NOTHING 
;IS REPORTED. AT THE TIME OF ENTRY RO POINTS TO DRIVE FLAG. 



T1 : 



1$; 



TSTB 

BPL 

BIT 
BNE 

BIT 
BEQ 

TYPE 

MOV 

TYPOC 

BIC 

TYPE 

BR 

BIT 



TYPE 
MOV 
TYPOC 
TYPE 

BIS 



1$ 



<VBIT2,(R0) 
NXT2 



R1.-(SP) 

#BIT2,(R0) 
, EMS 
NXT2 

#BIT2,(R0) 

NXT2 



R1 f ~(SP) 



#BIT2,(R0) 



|IS THIS DRIVE PRESENT? 
J RKDA CONTAINS THE DRV # 
?N0, SKIP CHECKING 

fWPS BIT SET? 
{YES 

IMPS BIT CLEAR 
JWAS IT CLR LAST TIME ALSO? 
;YES, NOTHING TO REPORT. 
I WPS CHANGED FROM 'SET' 
JTO 'CLR' , REPORT IT 
;TYPE DRIVE # 



{INDICATE THAT 
{TYPE ' WPS CLEAR 



WPS« IS CLEAR 



{WPS BIT IS SET 

{ WAS IT SET LAST TIME ALSO? 

{YES, NOTHING TO REPORT. 

?WPS CHANGED , FROM 'CLR' TO 

; 'SET' , REPORT THIS CHANGE 

? TYPE 'DRIVE' 

J TYPE DRIVE » 



{TYPE ' WPS SET' 

{SET FLAG BIT INDICATING WPS SET 
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1948 








1949 








1950 








1951 








1952 








1953 








1954 








1955 


017700 


032710 


000100 


1956 


017704 


001403 




1957 


017706 


105777 


16> 452 


1958 


017712 


100402 




1959 


017714 


000137 


020352 


1960 








1961 


01 7720 


052777 


000040 


1962 








1963 


017726 


012777 


000011 


1964 








1965 


017734 


105777 


161430 


1966 


017740 


100375 




1967 








1968 


017742 


032777 


010000 


1969 


017750 


001414 




1970 








1971 


017752 


032710 


000001 


1972 


017756 


001167 




1973 








1974 


017760 


104401 


020450 


1975 


017764 


010146 




1976 


017766 


104402 




1977 


017770 


104404 


020537 


1978 


017774 


052710 


000001 


1979 








1980 


020000 


000556 




1981 








1982 


020002 


032710 


000001 


1983 


020006 


001410 




1984 








1985 


020010 


104401 


020450 


1986 


020014 


010146 




1987 


020016 


104402 




1988 


020020 


104401 


020560 


1989 


020024 


042710 


000001 


1990 








1991 








1992 








1993 








1994 
1995 








1996 








1997 

1998 








1999 

296® 








2001 








2003 


020030 




184130 


2003 









{THIS CODE PERFORMS A SEEK FUNCTION ON A DRIVE AND CHECKS IF 
{THE 1 DPL 1 BIT SET AS A RESULT, (IF THE POWER WAS CUT OFF 
{ FROM THE DRIVE). NOTE THAT ONLY THOSE DRIVES ARE 
{CHECKED WHICH WERE FOUND TO BE PRESENT AT BEGINNING (WHEN 
{THIS TEST WAS ENTERED) . SEEK IS DONE TO CYLINDER 1 . 
{AT THE TIME OF ENTRY RO POINTS TO THE DRIVE FLAG. 



NKTSS 


BIT 


#BIT6,(R0) 


{WAS THIS DRIVE PRESENT AT BEGNG 




BEG 


4$ 


{NO 




TST8 


&RKDS 


{IS IT PRESENT NOW? 




bmx 


3$ 


? YES 


4$s 


JMP 


DN1DRV 


{IF NOT SKIP THIS CHECK 


3$s 


BIS 


#46,@RKDA 


; RKDA ALREADY HAS THE DRV § 








{SET CYL 1 ADDRESS 




MOV 


«11,«RKC'$ 


{SEEK. GO 




TSTar 


C9RKCS 


{WAIT FOR CONTROL RDY7 




BPL 


1$ 


{ SOMETHING WRONG IF CNTAL RDY 








; DOES NOT COME BACK 




BIT 


#DPL ( »RKDS 


{DPI BIT SET? 




BEQ 


2$ 


{NO 








JYES, DPL SET 




BIT 


#BIT0 t (R0) 


{WAS 'DPL 1 SET LAST TIME ALSO? 




SME 


CLRDPL 


{YES, NOTHING TO REPORT. 








? DPL CHANGED, GOT SET THIS 




TYPE 




J TIME, REPORT IT 




MOV 


R1 »-(SP) 






TYPOC 








TYPE 




{TYPE ' POWER LO* 




BIS 


Jbito.(ro) 


{SET FLAG BIT INDICATING THAT 








:DPL SET THIS TIME 




BR 


CLRDPL 










{ 'DPL' BIT IS CLEAR 




BIT 


0BITO, (RO) 


{WAS 'DPL' CLEAR LAST TIME ALSO? 




BEQ 


WATSK 


{YES, NOTHING TO REPORT 








{REPORT THAT 'DPL' BIT CHANGED, 




TYPE 


• EM1 


I FROM SET TO CLEAR 




MOV 


R1.-(SP) 






TYPOC 








TYPE 




{ TYPE ' POWER UP' 




BIC 


#B1T0.(R0) 


{SET FLAG BIT INDICATING THAT DPL 



{IS CLEAR THIS TIME 

{THIS CODE WAITS FOR THE SEEK (DONE ABOVE) TO FINISH. WAITIN 
{TIME IS APPROX. 50 MS (FOR THE WORST CASE) . IF R/W/S RDY 
{ DOES NOT SET WITHIN 50 MS, THEN IT IS ASSUMED THAT A 'SIN' 
{IS POSSIBLE AND THE PROGRAM WAITS FOR 1450 MS MORE, SO THAT 
{THE 'SIN' CAN SET. IF ' SIN' DOES NOT SET WITHIN THIS 
{TIME AN ERROR IS REPORTED: 
{ SIN DIDN'T OCCUR 

{IF R/W/S RDY SETS WITHIN SO MS THE PROGRAM PROCEEDS TO 
{CHECK THE NEXT DRIVE. 



WATSKI MOV 



I SET COUNT TO WAIT FOR 

{50 US 



f 
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SEO 0033 



2004 


020034 


032777 


000100 


2005 


020042 


001042 




2006 


020044 


005205 




2007 


020046 


001372 




2008 








2009 








2010 








201 1 


020050 


005004 




2012 


020052 


01 2705 


177777 


2013 


020056 


032777 


001000 


2014 


020064 


001045 




2015 


020066 


005305 




2016 


020070 


001372 




2017 


020072 


005704 




2018 


020074 


001002 




2019 


020076 


005204 




2020 


0201 00 


000766 




2021 








2022 








2023 


020102 






2024 


020102 


104401 


020110 


2025 


020106 


000415 




2026 








2027 


020142 






2028 


020142 


01 0146 




2029 


020144 


104402 




2030 


020146 


000501 




2031 


020150 


032710 


000002 


2032 


020154 


001476 




2033 


020156 


042710 


000002 


2034 


020162 


104401 


020450 


2035 


020166 


010146 




2036 


0201 70 


104402 




2037 


020172 


104401 


020601 


2038 


020176 


000465 




2039 








2040 








2041 








2042 


020200 


032710 


000002 


2043 


020204 


001010 




2044 


020206 


052710 


000002 


2045 


020212 


104401 


020450 


2046 


020216 


01 0146 




2047 


020220 


104402 




2048 


020222 


104401 


020573 


2049 








2050 


020226 


01 7705 


161 144 


2051 


020232 


01 2777 


000001 


2052 


020240 


105777 


161 124 


2053 


020244 


100375 




2054 


020246 


01 0577 


1611 24 


2055 


020252 


012777 


000015 


2056 








2057 


020260 


105777 


161 104 


2058 


020264 


100375 




2059 


020266 


005005 





161322 1$: 



161300 2S: 



;;6S$s 
64$: 



BIT 
BNE 
INC 
BNE 



CLR 

MOV 
BIT 
BNE 

DEC 
BNE 
TST 
BNE 
INC 
BR 



TYPE 
BR 

.ASCII 

MOV 

TYPOC 

BR 

BIT 

SEQ 

BIC 

TYPE 

MOV 

TYPOC 

TYPE 

BR 



#RWS,@RKDS 

3$ 

R5 

1$ 



R4 

#1 77777, RS 
#SIN,$RKDS 
SINST 

R5 
2$ 
R4 
4$ 
R4 
2$ 



;R/W/S. ROY SET? 

;YES 

iWAIT 

;50 MS OVER. R/W/S ROY 
J DIDN'T SET. WAIT FOR 
;SIN TO SET. 

;SET UP COUNT 
;SIN SET? 
;YES 
;WAIT 



;1500 MS ELAPSED, BUT SIN 
;DIDN'T SET. ERROR! 



J TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



TYPE DRIVE # 



,65$ 
64$ 

<15><12>/SIN DIDN'T OCCUR, DRVE/ 
R1 ,-(SP) 



DN1DRV 
#BIT1 , (RO) 
DN1DRV 
#BIT1 , (RO) 
,EM1 

R1,~(SP) 
DN1DRV 



5 DID R/W/S RDY SET LAST TIME? 
;YES 

;CLR FLAG INDICATING THAT SEEK IS OK 
; REPORT THAT SEEK IS OK 



| IF SIN SET, DO DRIVE RESET AND CLEAR IT 



SINST: 



1$: 



BIT 

BNE 

BIS 

TYPE 

WV . 

TYPOC 

TYPE 

MOV 

MOV 

TSTS 

BPL 

MOV 

MOV 



(RO) 
(RO) 



#BIT1 
4$ 

#BIT1 
,EM1 
R1 ,-(SP) 

,EM8 



©RKDA , R5 

#1 ,@RKCS 
SRKCS 

1$ 

R5.9RKDA 

#15,@RKCS 



;DID •SIN' SET LAST TIME ALSO? 

-,YES, NOTHING TO REPORT 

JSET FLAG INDICATING THAT 

; 'SIN' SET, AND REPORT THE CHANGE 



'.TYPE 'SIN* 



TSTB 9RKCS 
BPL 2$ 

CLR RS 



;SAVE RKOA 

;D0 CONTROL RESET 

JWAIT FOR CONTROL RDY 



5 DO DRIVE RESET. RKDA 
; ALREADY HAS THE DRVE 
*,WAIT FOR CNTRL RDY 
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SEQ 0001 



2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 



020270 
020276 
020300 
020302 

020304 
020310 



032777 
001025 
005205 
001372 



000100 161066 



104401 020312 
00041 1 



020334 000406 



020336 
020344 
020350 



012777 000001 
105777 161020 

100375 



3$: 


BIT 


#RWS,#RKOS 


; R/W/S SET? 




BNE 


DN1DRV 


;YES 




INC 


R5 






BNE 


3$ 


J WAIT FOR R/W/S RDY 








{REPORT ERROR. R/W/S 




TYPE 


,65$ 


; ;TYPE ASCIZ STRING 




BR ••' 


64$ 


; ;GET OVER THE ASCIZ 


?;6S$s 


.ASCI2 


<15><12>/RWS 


RDY NOT SET/ 


64$: 










BR 


ON 1 DRV 




IIP DPL 


SET CLEAR THE ERROR 


BY DOING CONTROL RESET. 


CLRDPL: 


MOV 


#1 ,®RKCS 


•.CONTROL RESET 


1$: 


TSTB 


@RKCS 


;WAIT FOR CNTRL RDY 



BPL 1$ 

AT THIS STAGE THE DRIVE (0 IN RKDA) HAS BEEN CHECKED 

FOR DRY, WPS, DPL, & SIN. THE POINTERS ARE INCREMENTED 

AND THE SAME CHECKS WILL BE DONE ON THE NEXT 

DRIVE & THEN THE NEXT ONE & SO ON. NOTE THAT 

THIS SUB-PROGRAM KEEPS ON CYCLING THROUGH 

ALL THE DRIVES. AT THE TIME OF ENTRY (HERE) 

RO POINTS TO THE FLAG FOR THE DRIVE THAT WAS 

JUST CHECKED. BEFORE GOING ON TO THE NEXT 

DRIVE THE HEADS ARE BROUGHT BACK TO CYLINDER 

( FOR THE NEXT CYCLE) . 



020352 
020356 
020362 
020364 
020372 

020400 

020404 

020406 
020412 
020420 

020422 
020424 
020426 
020432 

020434 
020440 



020444 
020446 



020450 

020456 



01 1077 


161020 




DN1DRVS 


MOV 


(R0),#RKD& 


GET DRIVE # 


105777 


161002 






TSTB 


@RKDS 


DRIVE PRESENT? 


100017 








BPL 


3$ J NO 


042777 


017777 


161004 




BIC 


#iT777, mm& 


CYL ADRES as © 


012777 


000011 


160770 




may 


#11 ,@RKCS 


GO, SEEK 


105777 


160764 




1$: 


TSTB 


TOKCS 


WAIT FOR CNTRL RDY 


100375 








BPL , 


1$ 




004737 


005614 






use 






032777 


000100 


1®0?44 


4$: 


BIT 






001774 








SEO 


4$ 




005720 






3$: 


TST 


(R0) + 


INCREMENT POINTERS TO 


005201 








INC 


R1 


NEXT DRIVE 


020127 


000010 






CMP 


R1 ,#10 


ALL DONE, THIS CYCLE? 


001402 








BEG 


2$ 


YES 


000137 


017430 






mp 


8EGCT1 


GO DO MEXT DRIVE 


000137 


017422 




3$? 


MP 


8EGCT 


RESTART THE CYCLE OVER 
















000000 






shfcnt; 


.WORD 







000000 






DRVCNT: 


• WORD 













{MESSAGES 






00501S 


051104 


OSS 111 


EH1 : 


.ASCI Z 


<15><12>/0R1VE / 




020105 


000 
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SEO 0082 



21 16 


020461 


040 


047440 


020 1 16 


EM2 • 


.ASCIZ 


/ 


ON LINE/ 


21 1 7 


020466 


04451 4 


04251 6 


000 








OFF LINE/ 


2118 


020473 


040 


047440 


0431 06 


EM3 : 


, ASCIZ 


/ 


21 19 


020500 


046040 


047 1 11 


0001 05 










2120 


020506 


020040 


051127 


0201 24 


EIH4 • 


____ 
.ASCIZ 


/ 


2121 


020514 


051 120 


0521 1 7 


000 




• 




WOT PMARI PD/ 


2122 


020521 


040 


053440 


0521 22 


EMS : 


.ASCIZ 


/ 


2123 


020526 


042440 


040516 


0461 02 










2124 


020534 


0421 05 


000 










DRIVE POWER 


2125 


020537 


040 


042040 


044522 


EM6: 


. ASCIZ 


/ 


2126 


020544 


042526 


050040 


053517 










2 1 27 


020552 












/ 


POWER UP/ 


2128 


020560 


020040 


047520 


042527 


Emu 


.ASCIZ 


2129 


020566 


020122 


050125 


000 








SIN/ 


2130 


020573 


040 


051440 


047111 


EM8: 


.ASCIZ 


/ 


2131 


020600 


000 












SEEK OK/ 


2132 


020601 


040 


051440 


042505 


EM9S 


.ASCIZ 


/ 


2133 


020606 


0201 13 


045517 


000 











2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 



020614 
020616 
020620 
020622 
020624 
020626 
020630 
020632 



020614 




.EVEN 




000000 


DRIV0 


.WORD 





000000 


DRIV1 


.WORD 





000000 


DRIV2 


.WORD 





000000 


DRIV3 


.WORD 





000000 


DRIV4 


. WORD 





000000 


DRIV5 


.WORD 





000000 


DRIV6 


.WORD 





000000 


DRIV7 


.WORD 






DRIVE FLAGS FOR CONTROL PANEL TEST #2 

BITS 15,14,13 GIVE THE DRIVE NO (EX: 0,1 ,2, ) 

BIT 7 IS SET WHEN 'DRY' BIT IS SET FOR THE DRIVE (ON LINE) 

BIT 7 IS CLEAR WHEN 'DRY' IS CLEAR (WHEN DRIVE IS IN LOAD/OFF LINE. 

DRIVE POWER IS CUT OFF) 

BIT 6 IS SET IF A DRIVE IS FOUND TO BE PRESENT (DRY) AT 

THE BEGINING. UNLIKE BIT 7 THIS BIT DOES NOT GET SET OR 

CLEARED AS THE DRIVE CONDITIONS CHANGE. IT JUST INDICATES 

THAT THE DRIVE IS AVAILABLE FOR CHECKING. 

BIT IS SET IF ' DPL 1 BIT GETS SET, IE: DRIVE POWER OFF 

BIT IS CLEARED WHEN DRIVE POWER IS ON. 

BIT 1 IS SET WHEN SEEK INCOMPLETE 'SIN' OCCURS. 

BIT 1 IS CLEAR WHEN SEEK IS OK. 

BIT 2 IS SET WHEN WRT PROT IS SET FROM CONSOLE. 
BIT 2 IS CLEARED WHEN DRIVE IS WRITE ENABLED. 



; DRIVE FLAGS 
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SEO 0063 



2162 








2163 








2164 








2165 








2166 








2167 








2168 








2169 








2170 








2171 








2172 








2173 








2174 








2175 








2176 








2177 








2178 








2179 








2180 








2181 


020634 


000240 




2182 


020636 


104401 


020644 


2183 


020642 


000426 




2184 








2185 


020720 






2186 


020720 


104401 


020728 


2187 


020724 


000432 




2188 








2189 


021012 






2190 


021012 


104401 


021020 


2191 


021016 


000427 




2192 








2193 


021076 






2194 


021076 


104401 


021532 


2195 


021 102 


005037" 


021526 


2196 


021 106 


104410 




2197 


0211 10 


012601 




2198 


021 1 12 


1 1 2100 




2199 


021 114 


162700 


000060 


2200 


021120 


002766 




2201 


021 122 


022700 


000067 


saoa 


021126 


002763 




22Q3 


021 130 


000241 




2204 


021132 


006000 




2205 


021 134 


006000 




2206 


021 136 


006000 




2207 


021 140 


006000 




2208 


021 142 


01 0037 


020614 


2209 


021146 


1 1 2100 




2210 


021 150 


001412 




2211 


021 152 


020027 


000106 


2212 


021 156 


001347 




2213 


021160 


10571 1 




2214 


021 162 


001345 




2215 


021 164 


042737 


020000 


2216 


021172 


005237 


021526 


2217 


021176 


013700 


020614 



.SBTTL HEAD ALIGNMENT ROUTINE 
;HEAD ALIGNMENT ROUTINE 

;THIS MAINTAINANCE ROUTINE IS HELPFUL IN HEAD ALIGNMENT. UPON ENTRY 

; THE QUESTION - DRIVE? - IS ASKED , THE USER SHOULD REPLY WITH THE 

; DRIVE NUMBER THAT IS TO BE ALIGNED. IF THE DRIVE IS AN RK-05F 

; THE LETTER ' F ' IS ADDED AS A SUFFIX. FOR SELECTING SURFACE 

;PUT SW0*0, FOR SELECTING SURFACE t PUT SW0»1 . SET SW1 -1 TO SELECT 

'.CYLINDER 64. SET SW1*0 TO SELECT CYLINDER 105. 

J IF THE DRIVE IS AN RK-05F, CYLINDER 64 BECOMES CYLINDER 130 

;OF THE EVEN DRIVE, AND CYLINDER 105 BECOMES CYLINDER 5 OF THE ODD DRIVE 

;THE HEADS ARE PLACED ON THE SELECTED CYLINDER AND DATA IS READ 

;CONTINUOSLY FROM THE CYLINDER (SECTOR 0) 

I THE .UPPER OR LOWER HEAD AND CYLINDER CAN BE SELECTED 

f DYNAMICALLY, IE. THE PROGRAM DOES NOT HAVE TO BE STOPPED TO SELECT THE 
{UPPER OR LOWER HEAD OR CYLINDER. 

j IN ORDER TO SELECT ANOTHER DRIVE, PUT ANY SWITCH FROM SW2 TO SW15 UP AND 
| THE PROGRAM WILL AGAIN ASK THE QUESTION (DRIVE?). 

SECT. 5: NOP 
, TYPE 



; j65S: 
84$: 



?;67$: 
66$: 



BR 
. ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

. ASCIZ 



; ;69$: 

68$: 

HDALGN: TYPE 
CLR 
RDLIN 
MOV 
MOVB 
SUB 
BLT 
CMP 
BLT 
CLC 
ROR 
ROR 
ROR 
ROR 
MOV 
MOVB 
BEQ 
CMP 
BNE 
TSTB 
BNE 

020614 BIC 
INC 

S$s MOV 



,65$ ; ; TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<15><12>/SET SW0»0 FOR SURFACE 0, SW0*1 FOR SUH 1./ 

,67$ ; J TYPE ASCIZ STRING 

66$ ; ;GET OVER THE ASCIZ 

<15><12>/SET S!fiM»0 FOR CYLINDER 105, SW1»1 FOR CYLINDER 64/ 

,69$ ; ; TYPE ASCIZ STRING 

68$ ; ;GET OVER THE ASCIZ 

<15><12>/PUT ANY Stf FROM 2-15 HI TO SELECT NEW DRVE/ 



,EM10 
FFLAG 

(SP)+,R1 
(R1 )+,R0 
#60, RO 
HDALGN 
#67, RO 
H&ALGN 

RO 
RO 
RO 
RO 

RO.DRIVO 
(RU + .RO 
5$ 

RO , # 1 F 
HDALGN 
<R1) 
HDALGN 

#BIT13,DRXV0 
FFLAG 

DRIVO.RO 



;ASK FOR DRIVE # 

•FLAG FOR RK-05F 

J GET OPR INPUT 

; ADDR OF COMMAND STRING 

| FIRST CHAR 

;0 TO 7 

| TOO SMALL 

;MUST BE 7 OR LgSS 

| TOO BIG 



ADDRESS OF DRIVE 

NEXT INPUT CHAR 

ALL DONE IF C.R. 

IS IT F? 

NO. SO ERROR 

NEXT CHAR MUST BE C.R. 

ELSE, ERROR 

USE EVEN DRIVE IF RK-05F 
SHOW F TYPE DRIVE 
DRIVE ADDR TO RO 



SEQ 0084 



2218 


021 202 


022737 


0001 76 


2219 


021 21 


00 1 002 




2220 


021 21 2 


1 04405 




2221 


021 2 1 4 


00040 1 




2222 


021 2 1 6 


00 0000 




2223 


021 220 


01 7737 


1 =771 /! 


2224 


021 226 


042737 


1 77775 


2225 


021 234 


00 1 005 




2226 


021 236 


005737 


021 526 


2227 


021 242 


00 1 402 




2228 


021 244 


052700 


0200UO 


2229 


021 250 


1 0077 


1 601 22 


2230 


021 254 


1 2777 


Art Aft "1 7 


2231 


021 262 


1 05777 


1 601 02 


2232 


021 266 


1 00375 




2233 


Q21 270 


01 2777 


00000 1 


2234 


021 276 


1 05777 


1 60066 


2235 


021302 


1 00375 




2236 


021 304 


005737 




2237 


021310 


00 1410 




2238 


021312 


1 270 1 




2239 


021316 


005737 


021 530 


2240 


021 322 


00 1 41 2 




2241 


021 324 


062701 


A< ft 4 f\n 
UIU1UU 


2242 


021 330 


000407 




2243 


021 332 


1 2701 




2244 


021 336 


005737 


021530 


2245 


021 342 


00 1 002 




2246 


021 344 


062701 


A A n A A ,*t 

002440 


2247 


021 350 


005777 


1 6001 4 


2248 


021 354 


1 00006 




2249 


021 356 


1 2777 


OOOOU i 


2250 


021364 


1 05777 


1 OOOOU 


2251 


021 370 


1 00375 




2252 


021372 


1 7702 


1 57542 


2253 


021 376 


042702 


1 77775 


2254 


C21 402 


020237 


02 1 530 


2255 


021 406 


001 273 




2256 


021410 


1 0077 


f 57762 


2257 


021 4 1 4 


01 2777 


0000 1 7 


2258 


021422 


1 05777 


1 57742 


2259 


02 1 426 


1 00375 




2260 


021 430 


042700 


000020 


2261 


021 434 


032777 


000001 


2262 


021 442 


00 1 402 




2263 


021 444 


052700 




2264 


021 450 


04^700 


01 7740 


2265 


021 454 


0501 00 




2266 


021 456 


1 0077 


57714 


2267 


021 462 


1 2777 


1 77400 




021 470 


01 2777 


007356 


2269 


021476 


012777 


000005 


2270 








2271 


021504 


105777 


157660 


2272 


021510 


100375 




2273 









1S7702 
1 57S76 

157664 





CMP 


#SWREG,SWR 


; SOFTWARE SWITCH REGISTER IN USE? 




BNE 


15$ 


; BR IF NOT 




GTSWR 




; REQUEST NEW CONTENTS FOR SWITCH REG 




BR 


16$ 


; CONTINUE 


15$: 


HALT 




{WAIT FOR OPERATOR TO ENTER NEW SWR VALUE 


16$; 


MOV . 


@SWR, SWTCH 


{HOLD SWITCHES 


BIC 


#1 77775 , StaUCH 


; WANT SW1 ONLY 




BNE 


7$ 


;SW1 SET , SO LOW CYLINDER 




TST 


FFLAG 


;F DRIVE? 




BEQ 


7$ 


;NO 




BIS 


IBIT13.R0 


{ODD DRIVE IF HIGH TRACK OF F 


l% * 


MOV 


RO ,$RKDA 


{ADDRESS DRIVE 


MOV 


# 1 7 ,@RKCS 


{WRITE PROTECT 


g$s 


TSTS 


@RKCS 




BPL 


8$ 


{WAIT FOR DRIVE READY 




MOV 


#1 ,f»RKCS 


{ RESET CONTROLLER 


9$; 


TSTS 


@RKCS 




BPL 


9$ 


{WAIT FOR READY 




TST 


FFLAG 


;F DRIVE? 




BEQ 


13$ 


{NO 




MOV 


#5.*40,R1 


{TRACK 5 OF HIGH 




TST 


SWTCH 


;SW1 SET? 




BEQ 


10$ 


{YES SO TEST TRACK 8 OF DRIVE Htm 




ADD 


#13O.*40,R1 


; TRACK 130. IF SW1 SET 




BR 


10$ 




13$ 5 


MOV 


#64.$4©,Rf 


{CYLINDER 64 IF NOT P 




TST 


SWTCH 


{SW1 SET? 




BNE 


10$ 


{YES, SO CYLINDER 64 




ADD 


#41 .*4<5,ftt 


{CYLINDER 105 


10$: 


TST 


PRKCS 


{ANY ERROR? 




BPL 


11$ 


{NO. CONTINUE 




MOV 


#1 ,@RKCS 


5 RESET 


12$? 


TSTS 


fsRKCS 






BPL 


12$ 


{WAIT FOR READY 


1 1$S 


MOV 


#SWR,R2 


{ SWITCH REG TO R2 


SIC 


01 77775, R2 


{SW1 ONLY 




CMP 


R2 , SWTCH 


{ ANY CHANGE SINCE LAST? 




BNE 


5$ 


{YES, GO SET-UP ADDR AQAtU 


i$! 


MOV 


RO ,@RKDA 


{ADDRESS THE DRIVE 




MOV 


#17,#RKCS 


{WRITE PROTECT THE DRIVE 




TSTB 


#rkcs 


:WAIT FOR CONTROL RDY 




BPL 


.-4 




4$; 


BIC 


02O.RO 


. CLEAR TRACK ADDR 




BIT 


#1 ,#SWR 


;SW0 SET? 




BEQ 


2$ 


{NO TEST TRACK 




8IS 


#20, RO 


{TEST TRACK 1 


a$s 


BIC 


#17740, RO 


{CLEAR CYLINDER ADDR 


SIS 


R1 , RO 


{ PUT CYLINDER ADDR IN ADDR 




MOV 


R0,*RKDA 


{ ADRES THE DRIVE 




MOV 


#»40O,@RKk?C 


{ READ 1 SECTOR 




MOV 


#RDBUPF,@RKBA 


{INTO THIS BUFFER 




MOV 


#5,#RKCS 


{READ, GO 


3$ I 


TSTS 


@RKCS 


{ DONE? 




SPL 


3$ 


{NO 
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SEQ 606S 



2274 


021512 


032777 


177774 


2275 


021520 


001713 




2276 


021522 


000137 


021076 


2277 








2278 


021526 


000000 




2279 


021530 


000000 




2280 


021532 


005015 


051104 


2281 


021540 


037505 


000 


2282 








2283 








2284 








2285 








2286 








2287 








2288 








2289 








2290 








2291 








2292 








2293 








2294 








2295 








2296 








2297 








2298 








2299 








2300 




021544 




2301 








2302 


021544 


005000 




2303 


021546 


005037 


020614 


2304 


021552 


1 00 77 


157620 


2305 


021556 


105777 


157602 


2306 


021562 


100406 




2307 


021564 


005237 


020614 


2308 


021570 


062700 


020000 


2309 


021574 


001366 




2310 


021576 


000762 




231 1 


021600 


01 3746 


020614 


2312 


021604 


032777 


000040 


2313 


021612 


001406 




2314 


021614 


104401 


022234 


2315 


021620 


104402 




2316 


021622 


104401 


022244 


2317 


021626 


000756 




2318 


021630 


104401 


020450 


2319 


021634 


01 3746 


020614 


2320 


021640 


104402 




2321 


021642 


01277™ 


000001 


2322 


021650 


1057 7 


157514 


2323 


021654 


100375 




2324 


021656 


005005 




2325 








2326 


021660 


013701 


001376 


2327 


021664 


013702 


001372 


2328 


021670 


013703 


001374 


2329 


021674 


013f§4 


001370 



15742$ BIT 
BEQ 

FFLAG: 
SWTCH : 

053111 EUiOi .ASCII 



# 1777774, ^SHR 
10$ 

HDALGW 



<lS><1ft>/ORIVE?/ 



EXIT OUT? 

NO. CONTINUE ON THIS DRIVE 
YES, GET NEW DRIVE 



.SBTTL DISK POWER FAILURE TEST 
; (DISK) POWER FAILURE (DURING DISK WRITE) TEST 

{THIS TEST CHECKS THAT THE INFORMATION WRITTEN ON THE DISK IS 
;N0T DESTROYED JriHEH THE DISK SENSES A LOSS OF POWER WHILE DOING A WRITE 
{AND RETRACTS THE HEADS. UPON ENTRY THE PROGRAM FINDS OUT THE 
{FIRST AVAILABLE DRIVE INDICATES IT (DRIVE XX) AND PROCEEDS TO TEST. 
{CYLINDERS TO 15 ARE WRITTEN WITH UNIQUE PATTERNS, THEN THE HEADS 
{ARE POSITIONED GN CYLINDER 10 (DECIMAL} AND A MESSAGE (DROP 
{POWER) IS GIVEN. AFTER RECEIVING THIS MESSAGE THE USER SHOULD 
{DROP POWER FROM THE DRIVE. ON SENSING A LOSS OF POWER. THE 
5 PROGRAM ASKS THE USER TO PUT SACK THE POWER. THE ERRORS (DPL) 
{ARE CLEARED AND A WRITE-CBfSK IS PERFORMED TO CHECK IF THE 
{UNIQUE PATTERS ON THE DISK (CYLINDERS 0-9 AND 11-13) ARE STILL 
? THERE. IF NOT A WRITE CHECK ERROR SS REPORTED. 
. EVEN 

; INITIALIZE DRIVE M 

% IS IT PRESENT? 

?IP NOT SKIP 



{GET DRIVE * 



SECT. 8 : 


CLR 


RO 




CLR 


DRIVO 


8$: 


ssov 


R0,#RKDA 




TSTB 


@RKOS 




BMX 


12$ 


10$! 


INC 


DRIVO 




ADD 


#20000 ,R0 




BNE 


8$ 




BR 


SECT. 6 


12$s 


MOV 


DRIV0 s »(SP) 




BIT 


#40,@RKD$ 




BEQ 






TYPE 


♦ EMI 1 




TYPOC 






TYPE 


V EM12 




BR 


10$ 


mi 


TYPE 


,EM1 




my 


DRIV0 s «CSP) 




TYPOC 




MOV 


#1 ,#RKC$ 




TSTS 


ftRKCS 




BPL 


.-4 




CLR 


R5 




MOV 


RKDA, FH 




MOV 


RXMCRa 




mm 


RKBA,R3 




my 


rkcs,r4 



{CONTROL RESET 

; INITIALIZE PATTERN T0 SE WRITTEN 

l@ m CYL «. 1 ON CYL 1. ETC 
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SEO 0063 



2330 


021 700 


01 001 1 








MOV 


2331 


021 702 


01 0537 


022232 






MOV 


2332 


021 706 


01 271 3 


022232 






MOV 


2333 


021 712 


01 2712 


164000 






MOV 


2334 


021 71 6 


01 2714 


004003 






MOV 


2335 


021 722 


105714 








TSTB „ 


2336 


021 724 


1 00376 








BPL 


2337 












INC 


2338 


021 726 


005205 










021 730 


020527 


000020 






CMP 




021 734 


00 1 362 








BNE 


. 1 












MOV 




02 t 736 


01 0005 










02 1 740 


052705 


000500 






BIS 




021 744 


01 2737 


000012 


022232 




MOV 




021 752 


01 051 1 








MOV 






1 271 2 


1 64000 






MOV 


2347 


021 760 


01 271 3 


022232 






MOV 


2348 


021 754 


01 271 4 


004003 






MOV 


2349 


021 770 


032777 


0001 00 


157366 


2$i 


BIT 


2350 


021 776 


00 1 774 








BED 




022000 


1 04401 


022006 






TYPE 


2352 


022004 


000^06 








BR 


2353 












.ASCIZ 




022022 








€4$: 




2355 












BR 


2356 


022022 


000407 








2357 


022024 


01 051 1 






3$s 


MOV 


2358 


022026 


01 271 2 


164000 






MOV 


2359 


022032 


01 271 3 


022232 






MOV 


2360 


022036 


01 271 4 


004003 






MOV 


2361 


022042 


1 0571 4 






5$: 


TSTB 


2362 


022044 


1 00376 








BPL 




022046 


00571 4 








TST 


2364 














2365 


022050 


1 00365 








BPL 


2366 














2367 














2368 


022052 


1 04401 


022060 






TYPE 


2369 


022056 


000406 








BR 


2370 










} ?67$J 


.ASCIZ 


2371 


022074 








36$: 




2372 


022074 


105777 


157264 






TSTB 


2373 


0221 00 


1 00375 








BPL 


2374 


0221 02 


01 271 4 


000001 






MOV 


2375 


022 1 06 


105714 








TSTB 


2376 


0221 1 


1 00376 








BPL 


2377 


0221 1 2 


01 0077 


157260 






MOV . 


2378 


0221 16 


005005 








CLR 


2379 


022120 


01 0537 


022232 




8$: 


MOV 


2380 


022124 


012713 


022232 






MOV 


2381 


022130 


012712 


164000 






MOV 


2382 


022134 


01 2714 


004007 






MOV 


2383 


022140 


105714 








TSTB 


2384 


022142 


100376 








BPL 



RO.0R1 

R5.BUFR | FILL THE PATTER IN DATA BUFFER* 

#BUFR,@R3 ;BUS ADRES 

#-14000, 0R2 ; WRITE 1 CYL (256X12X2 WORDS i 

#4003, »R4 ; WRITE, GO. IBA SET 

@R4 ;WAIT FOR CONTROL READY 

.-2 

; DONE 

R5 ; WRITTEN ALL 15 CYLINDERS? 

R5,#20 {IF NOT, GO BAK 

1$. 

R0.R5 «, DRIVE # 

#500, R5 ;CYL 10 

#12,BUFR ; PATERN TO BE WRITTEN 

R5.0R1 ; ADRES THE DISK 

#-14000, 0R2 ;WORD COUNT* 1 CYLINDER 

#BUFR,f»R3 5 BUS ADRES 

#4003, @R4 {WRITE, GO, IBA 

#RWS,eRKDS {WAIT FOR THE HEADS TO SETTLE 

2$ {ON CYL 10 

,65$ ; ;TYPE ASCIZ STRING 

64$ GET OVER THE ASCII 

/DROP POWER/ 



5$ 

R5.9R1 ; ADRES THE DISK 

#-14000,S*R2 {WORD COUNT* 1 CYLINDER 

#BUFR,9R3 ;BUS ADRES 

#4003, @R4 ; WRITE, GO. IBA 

9R4 ;WAIT FOR CONTROL READY 

.-a 

@R4 f WAIT FOR DRIVE POWER TO GO DOWN • 

5 OTHERWISE, KEEP ON WRITING ON CYL 10 

3$ 

;IF DRIVE POWER LOSS WAS SENSED « 

;ASK TO PUT POWER ON. 
,67$ ; {TYPE ASCIZ STRING 

©6$ { {GET OVER THE ASCII 

<15><12>/P0WER ON/ 

@RKDS {WAIT POP DRIVE READY 

.-4 

#1 ,@R4 {CONTRO RESET, CLEAR ERROR 

@R4 
.-2 

RO ,&RKDA 

R5 {INITIALIZE PATTERN 

R5.BUFR 

#BUFR,@R3 
0-1 4000, WIS 

#4007, @R4 {WRITE CHECK, GO. ISA 

@R4 
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SEO 0067 



2386 


022144 


005714 




2387 


022146 


100023 




2388 


022150 


104401 


022156 


2389 


022154 


000416 




2390 








2391 


022212 






2392 


022212 


01 1 146 




2393 


022214 


104402 




2394 


022216 


005205 




2395 


022220 


020527 


000020 


2396 


022224 


001335 




2397 








2398 


022226 


000137 


021564 


2399 








2400 


022232 


000000 




2401 


022234 


051 104 


053111 


2402 


022242 


000040 




2403 


022244 


051511 


053440 


2404 


022252 


042524 


050040 


2405 


022260 


042524 


052103 


2406 


022266 


000040 




2407 








2408 








2409 








2410 








24 11 








2412 








2413 








2414 








2415 








2416 








2417 








2418 








2419 








2420 








2421 








2422 








2423 








2424 








2425 








2426 


022270 


105737 


00115? 


2427 


022274 


100002 




2428 


022276 


000000 




2429 


022300 


000407 




2430 


022302 


010046 




2431 


022304 


017600 


000002 


2432 


022310 


112046 




2433 


022312 


001005 




2434 


022314 


005726 




2435 


022316 


012600 




2436 


022320 


062716 


000002 


2437 


022324 


000002 




2438 


022326 


122716 


000011 


2439 


022332 


001430 




2440 


022334 


122716 


000200 


2441 


022340 


001006 





5 569$? 
-S8S' 



BUFR: 
EM11: 



TST 

BPL 

TYPE 

BR 

.ASCII 

MOV 

TYPOC 

INC 

CMP 
BNE 

MP 

.WORD 

a ASCII 



m4 

7$ 

,69$ 
68$ 

<15><12>/ERR0R, 

PR1 ,-»(SP) 

m 

RS,#20 
6$ 

10$ 

© 

/DRIVE / 



ANY ERROR? 

NO 

{TYPE ASCIZ STRING 
{GET OVEH THE ASCII 
ON PWR-UP. RKDA«/ 



044522 
047522 
0421 OS 



ES12: .ASCrz /IS WRITE PROTECTED / 



.SBTTL TO! MUTXMl 

J Sl****®!^ $ 4> ******** ********** 

^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
•N0TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

*N0TE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REOUIHED. 

*N0TE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

*call: 

*1 ) USING A TRAP INSTRUCTION 
* TYPE ,MESADR 

•OR 

® Type 



{ {MESADR IS FIRST ADDRESS OF m ASCII STRING 



STYPEs 


TSTB 


STPFIG 


{{IS THERE A TERMINAL? 




BPL 


1$ 


; ; BR IF YES 




HALT 




{ {HALT HERE IF NO TERMINAL 




BR 


3$ 


{ { LEAVE 




MOV 


RO.-CSP) 


{{SAVE RO 




my 


*2(SP),R0 


{ {GET ADDRESS OF ASCIZ STRING 


2%i 


MOV 3 


(RO)+,-(SP) 


{ ; PUSH CHARACTER TO BE TYPED ONTO STACK 




BNE 


4$ 


{{BR IF IT ISN'T THE TERMINATOR 




TST 


(SP) + 


{ {IF TERMINATOR POP IT OFF THE STACK 
{ { RESTORE RO 


60$ . 


taov 


(SP)+,RO 

#2,CSP) 


3$. 


ADD 
RTI 


; {ADJUST RETURN PC 
{ { RETURN 


4$: 


CMPB 

BEQ 


#HT t (SP) 
8$ 


{ { BRANCH IF <HT> 




CMPB 


fCRLF.CSPI 


{ J BRANCH IF NOT <CRLF> 




BNE 


5$ 
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sm 0083 



2442 


022342 


005726 




2443 


022344 


1 04401 




2444 


022346 


001161 




2445 


022350 


1 05037 


022504 


2446 


022354 


000755 




2447 


022356 


004737 


022440 


2448 


022362 


1 23726 


001 1 56 


2449 


022366 


00 1 350 




2450 


022370 


01 3746 


01 1 54 


2451 








2452 


022374 


1 05366 


000001 


2453 


022400 


002770 




2454 


022402 


004737 


022440 


2455 


022406 


1 05337 


022504 


2456 


0224 1 2 


000770 




2457 








2458 








2459 








2460 


02241 4 


112716 


000040 


2461 


022420 


004737 


022440 


2462 


022424 


1 32737 


000007 


2463 


022432 


00 1 372 




2464 


022434 


005726 




2465 


022436 


000724 




2466 


022440 


1 05777 


1 56504 


2467 


022444 


1 00375 




2468 


022446 


1 1 6677 


000002 


2469 


022454 


1 22766 


00001 5 


2470 


022462 


001003 




2471 


022464 


1 05037 


022504 


2472 


022470 


000406 




2473 


022472 


122766 


000012 


2474 


022500 


001402 




2475 


022502 


1 05227 




2476 


022504 


oooooo 




2477 


022506 


000207 




2478 








2479 








2480 








2481 








2482 








2483 








2484 








2485 








2486 








2487 








2488 








2489 








2490 








2491 








2492 








2493 








2494 








2495 








2496 








2497 









5$ 5 

6SS 



022SO4 



156476 
000002 



TST 


(SP) + 


; ; POP <CRXLF> EQUIV 


TYPE 




; ; TYPE A CR AND IF 


SCRIP 






CLRB 


SCHARCNT 


; ; CLEAR CHARACTER COUNT 


BR 


2$ 


; ; GET NEXT CHARACTER 


JSR 


PC.STYPEC 


; ;GO TYPE ,r, S CHARACTER 


CMPB • 


$FILLC,(SP)+ 


I f IS IT TIME FOR FILLER CHARS.? 


BNE 


2$ 


; ;IF NO GO GET NEXT CHAR. 


may 


SNUtL-CSP) 


; J GET # OF FILLER CHARS. NEEDED 






; {AND THE NULL CHAR. 


DECS 


MSP) 


1 ;DOES A NULL NEED TO BE TYPED? 


BLT 


6$ 


; ;BR IF NO— GO POP THE NULL OFF OF STACK 


JSR 


PC, STY PES 


;; GO TYPE A NULL 


OECB 


SCHARCNT 


; ;DO NOT COUNT AS A COUNT 


BR 


7$ 


I ; LOOP 



; HORIZONTAL TAB 






8$: 


MOVE 


, ( SP) 


• . DCDl HOC TIB ul T TU CDirC 

; ; HcrLAtt 1 ad Hi In ar AWE 


S$: 


USR 


PC.STYPEC 


;;TYPE A SPACE 




BITS 


07, SCHARCNT 


; ; BRANCH IF NOT AT 




BNE 


9$ 


; ; TAB STOP 




TST 


(SP)* 


; ;POP SPACE OFF STACK 




BR 


2$ 


; ;GET NEXT CHARACTER 


$TYPEC: 


TSTB 


#$TPS 


; ;WAIT UNTIL PRINTER IS READY 




BPL 


STYPEC 






MOVB 


2(SP) ,@$TPi 


; ; LOAD CHAR TO BE TYPED INTO DATA 




CMPB 


*CR.2(SP) 


; ; IS CHARACTER A CARRIAGE RETURN? 




BNE 


1$ 


; ; BRANCH IF NO 




CLRB 


SCHARCNT 


YES— CLEAR CHARACTER COUNT 




BR 


STYPEX 


! JEXIT 


1$: 


CMPB 


#LF,2($P) 


; ;IS CHARACTER A LINE FEED? 




BEO 


STYPEX 


; ; BRANCH IF YES 




I NOB 


(PC)* 


; ; COUNT THE CHARACTER 


SCHARCNT: .WORD 





; ; CHARACTER COUNT STORAGE 


STYPEX : 


RTS 


PC 




.SBTTL 


BXMARY 


TO OCTAL (ASCII) 


AND TYPE 











;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

;»$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

;*CALL: 

;» MOV NUH.-(SP) ? | NUMBER TO BE TYPED 

?* TYPOS | 5 CALL FOR TYPEOUT 



TO 6 FOR NUMBER OF DIGITS TO TYPE 
OR 

; J1-TYPE LEADING ZEROS 

? ; ©^SUPPRESS LEADING ZEROS 



5* .BYTE U ;;N 

?* .BYTE M 

J* 

»* 

;*$TYP0N-~ ENTER HIRE TO TYPE OUT WTH THE SAME PARAMETERS AS THE LAST 
;*$TYP0S OR STYPOC 

?*CALL5 

i* mov num,-<sp) % s number to be typed 

|& TYPON ifCALL FOR TYPEOUT 
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2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
'2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
25S2 
2553 



; ♦STYPOC— ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;*CALL: 

|* MOV NUH.~(5P) 

TYPOC 



; ; NUMBER TO BE TYPED 
; ; CALL FOR TYPEOUT 



022510 


017646 


oooooo 




STYPOSS 


MOV 


022514 


116637 


ooooot 


022733 




.MOVB 


022522 


112637 


022735 






MOVB 


022526 


062716 


000002 






ADD 


022532 


000406 








BR 


022534 


1 1 2737 


000001 


022733 


STYPOC : 


MOVB 


022542 


112737 


000006 


02273S 




MOVB 


022550 


1 1 2737 


000005 


022732 


STY PON* 


MOVB 


022556 


010346 








wov 


022560 


010446 








MOV 


022562 


010546 








MQV 


022564 


113704 


02273S 






MOVB/ 


022570 


005404 








ADD 


022572 


062704 


000006 






022576 


1 1 0437 


022734 






mm 


022602 


1 1 3704 


022733 






MOV& 


022606 


016605 


000012 






pov 


022612 


005003 








CLR 


022614 


006105 






1$: 


ROL 


022616 


000404 








BR 


022620 


006105 






3$t 


not 


022622 


006105 








ROL 


022624 


006105 








, ROL 


022626 


010503 








M3V 


022630 


006103 






3SS 


ROL 


022632 


105337 


022734 






DEC® 


022636 


100016 








BPL 


022640 


042703 


177770 






BIC 


022644 


001002 










022646 


005704 








TST , 


022650 


001403 








BEO 


022652 


005204 






4$: 


INC 


022654 


052703 


000060 






BIS 


022660 


052703 


000040 




5$: 


BIS 


022664 


110337 


022730 






MOV 8 


022670 


'04401 


022730 






TYPE 


022674 


105337 


022732 




7$: 


DECS. 


022700 


003347 








BGT 


022702 


302402 








8LT 


022704 


305204 








mc 


022706 


000744 








m 


022710 


012605 








stov 


022712 


012604 








mm 


022714 


012603 








my 


022716 


016666 


oeoooa 


0000 ©4 




mv 


022724 


012616 








mv 


022726 


000002 








RTI 


022730 


000 






ess 


.BYTE 


022731 


000 








. BYTE 


022732 


000 






S8CNTS 


,®Y?f 



»(sp>, 

1(SP) ,$0FILL 

(SP)+,SOMObE+1 

#2,<SP) 

&TYPON 
#1 .S0F1LL 

' >1 



R3,->SP) 

R4,-(SP) 
R5,-(SP) 
SOMQDE+1 , 

R4 



S0FILL,R4. 

ta<$p*,Rs 



BR 3$ 



R5, 

R3 



1% 

#1 77770 .rs 

4$ 

m 

5$ 
R4 

#'0,R3 

#' ( R3 

R3.8S 



2$ 
6$ 

m 

2$ 

(sph.rb 

<SP)+,R4 
<SP)+.R3 
2(SP).4(SP) 

(SP)+.(SP)' 






; ; PICKUP THE MODE 

% ; LOAD ZERO FILL SWITCH 
; ; NUMBER OF DIGITS TO TYPE 
{ ; ADJUST RETURN ADDRESS 

; ;SET THE ZERO FILL SWITCH 
! ;SET FOR SIX(6) DIGITS 
} ; SET THE ITERATION COUNT 
5? SAVE R3 
; | SAVE R4 
I ; SAVE R5 

S ; GET THE NUMBER OF DIBITS TO 



; ; SUBTRACT It FOR MAX. A I 
; ; SAVE IT FOR USE 
; I GET t«E ZERO FILL SWITCH 
SS PICKUP THE INPUT NUMBER- 
% ? CLEAR THE OUTPUT mm 
?; ROTATE MSB IHTO *C» 
«SGO BO/MSB 

FORM. THIS DIGIT 



5 | GET iSB OF THIS DWIT 

; ; TYPE THIS DIGIT? 

| J BR I F NO 

; 5 GET RID OF UUNK 

; fTEST FOR 

I ; SUPPRESS THIS 0? 

|?BR IF YES 

; ; DON'T SUPPRESS ANYMORE © 8 S 

\ ; MAKE THIS DIGIT ASCII 

j ; MAKE ASCII IF NOT ALREADY 

;;SAVg FOR TYPING 
; ;GO TYPE THIS DIGIT 
; ; COUNT BY 1 
; ?SR IF MORE TO DO 
% 5 BR IF DONE 

5 1 INSURE LAST DIGIT im*T & 
5 ;GO DO THE LAST DXSIT 
? ? RESTORE RS 
? ; RESTORE m 
; ; RESTORE R3 

I % SET THE STACK FOi ^ITURNIWG 
RETURN 

; I STORAGE FOR ASCII 91QIT 
S;T*RI«NATOR FOR TYPE RQUTIME 

?iO£t&l digit mm?m 
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SEQ 0070 



2554 


022733 


000 






SOFILi: . BYTE 





; ;ZERO FILL SWITCH 


2555 


022734 


000000 






$omode: .word 





; ; NUMBER OF DIGITS TO TYPE 


2556 










.SBTTL TTY INPUT ROUTINE 




2557 
















2558 














2559 










. ENABL LSB 






2560 


022736 


000000 






STKCNT: .WORD 





; ; NUMBER OF ITEMS IN QUEUE 


2561 


022740 


000000 






5TKQIN : .WORD 





; ; INPUT POINTER 


2562 


022742 


000000 






STKOOUT: . WORD 





OUTPUT POINTER 


2563 


022744 


000001 






STKQSRT: . BLKB 


1 


; J TTY KEYBOARD QUEUE 


2564 




022745 






STKQENDsj . 






2565 




02274S 






. EVEN 






2566 
















2567 










:*TK INITIALIZE ROUTINE 




2568 










{♦THIS ROUTINE 


WILL INITIALIZE 


THE TTY KEYBOARD INPUT QUEUE 


2569 










;*SETUP THE INTERRUPT VECTOR AN 


D TURN ON THE KEYBOARD INTERRUPT 


2570 










; 






2571 










;*CALL: 






2572 










;* JSR 


PC.STKINT 




2573 










RETURM 






2574 










» 






2575 


022746 


005037 


022736 




STKINT: CLR 


STKCNT 


; ; CLEAR COUNT OF ITEMS IN QUEUE 


2576 


022752 


01 2737 


022744 


022740 


MOV 


#$TKGSRT,$TKGIN 


; {MOVE THE STARTING ADDRESS OF THE 


2577 


022760 


01 3737 


022740 


022742 


most 


STKQIN.STKQOUT 


{ ; QUEUE INTO THE INPUT & OUTPUT POINTERS 


2578 


022766 


01 2737 


023016 


000060 


MOV 


#$TKSRV,8»#TKVEC 


{ ; INITIALIZE THE KEYBOARD VECTOR 


2579 


022774 


012737 


000200 


000062 


MOV 


#200,@*TKVEC+2 


; ; "BR" LEVEL 4 


2580 


023002 


005777 


156140 




TST 


mrm 


;; CLEAR DONE FLAG 


2581 


023006 


01 2777 


000100 


156130 


MOV 


#100,®$TKS 


; ; ENABLE TTY KEYBOARD INTERRUPT 


2582 


023014 


000207 






RTS 


PC 


;; RETURN TO CALLER 


258c 
















2584 










:*TK SERVICE ROUTINE 




2585 










{♦THIS ROUTINE 


WILL SERVICE THE 


TTY KEYBOARD INTERRUPT 


2586 










;*BY READING THE CHARACTER FROM 


THE INPUT BUFFER AND PUTTING 


2587 










{♦IT IN THE QUE 


.UE. 




2588 
















2589 


023018 


1 1 7746 


156124 




$ TKSRV : MOVB 


@$TKB,~(SP) 


; ; PICKUP THE CHARACTER 


2590 


023022 


042716 


177600 




BIC 


0~C177,(SP) 


? ; STRIP THE JUNK 


2591 


023026 


021627 


000007 




1$; CMP 


(SP),#7 


?5 IS IT A CONTROL G? 


2592 


023032 


001004 






BNE 


2$ 


15 BRANCH IF NO 


2593 


023034 


022737 


000176 


001140 


CMP 


#SW?EG,Sls?R 


; ;IS SOPT-SwR SELECTED? 


2594 


023042 


001500 






BEQ 


6$ 


{ {GO TO SWR CHANGE 


2595 
















2596 


023044 








2$: 






2597 


023044 


022737 


000001 


022736 


CMP 


#1 , STKCNT 


; J IS THE QUEUE FULL? 


2598 


023052 


001004 






BNE 


3$ 


{ { BRANCH IF NO 


2599 


023054 


104401 


024066 




TYPE 


»SBELL 


; ; RING THE TTY BELL 


2600 


023060 


005726 






TST 


<SP)* 


; ; CLEAN CHARACTER OFF OF STACK 


2601 


023062 


000451 






BR 


5$ 


; ;EXIT 


2602 


023064 


021627 


000023 




3$: CMP 


(SP),023 


; ; IS IT A CONTROL-S? 


2603 


023070 


001021 






BNE 


32$ 


; ; BRANCH IF NO 


2604 


023072 


005077 


156046 




CLR 


«TKS 


;; DISABLE TTY KEYBOARD INTERRUPTS 


2605 


023076 


005726 






TST 


(SP) + 


;; CLEAN CHAR OFF STACK 


2606 


023100 


105777 


156040 




31$: TST 8 


©STKS 


{ {WAIT FOR A CHAR 


2607 


023104 


100375 






BPL 


31$ 


J { LOOP UNTIL ITS THERE 


2608 


023106 


1 1 7746 


156034 




MVS 


#$TK8,»CSP) 


; ;GET THE CHARACTER 


2609 


0231 12 


042716 


177600 




BIC 


f"C177,CSP) 


; ; MAKE IT 7-BIT ASCII 



kINDEC 


~1 1-0ZRKI-E 


MACY11 


RKIF. 


P11 24-MAR-78 


09:20 


2610 


0231 16 


022627 


000021 


2611 


023122 


001366 




2612 


023124 


012777 


000100 


2613 


023132 


000002 




2614 


023134 


005237 


022736 


2615 


023140 


021627 


000140 


2616 


023144 


002405 




2617 


023146 


021627 


000175 


2618 


023152 


003002 




2619 


023154 


042716 


000040 


2620 


023160 


1 1 2677 


177554 


2621 


023164 


005237 


022740 


2622 


023170 


023727 


022740 


2623 


0231 76 


001003 




2624 


023200 


012737 


022744 


2625 


023208 


000002 




2626 








2627 








2628 








2629 








2630 








2631 








2632 


023210 


022737 


000176 


2633 


023216 


001 104 




2634 


023220 


105777 


155720 


2635 


023224 


100101 




2636 


023226 


11 7746 


155714 


2637 


023232 


042716 


177600 


2638 


023236 


021627 


000007 


2639 


023242 


001300 




2640 








2641 








2642 








2643 








2644 








2645 








2646 


023244 


123727 


001134 


2647 


023252 


001674 




2648 


023254 


005726 




2649 


023256 


004737 


022748 


2650 


023262 


005077 


155656 


2651 


023266 


1 12737 


000001 


2652 








2653 


023274 


104401 


024077 


2654 


023300 


104401 


024104 


2655 


023304 


01 3746 


000176 


2656 


023310 


104402 




2657 


023312 


104401 


024115 


2658 


023316 


005046 




2659 


023320 


005046 




2660 


023322 


105777 


15561® 


2661 


023326 


100375 




2662 








2663 


023330 


1 1 7748 


155612 


2664 


023334 


042716 


177800 



) 24-MAR-78 0©:g3 
TTY INPUT ROUTINE 



32$ 5 



SEQ 0071 



cmp 


($P)+,#21 


; {IS IT A CONTROL-Q? 


BNE 


31 $ 


; ; BRANCH IF NO 


MOV 


#'1Ol0,«$TKS 


; ; REENABLE TTY KEYBOARD INTERRUPTS 


RTI 


STKCNT 


; 5 RETURN ■ 


ffi 


; ; COUNT THIS CHARACTER 


(SP)«<?140 


; ;IS IT UPPER CASE? 


BLT 


4$ 


; ; BRANCH IF YES 


CMP, 


.(SP),*175 


; ;IS IT A SPECIAL CHAR? 


BGT 




{ {BRANCH IF YES 


BIC 


#40, (SP) 


5 J MAKE IT UPPER CASE 


MOVS 


.(•SP)*,WKQIN 


; ; ANO PUT IT IN QUEUE 


INC 


STKQIN 


?; UPDATE THE POINTER 


CMP 


$TKS?IN , #$TKQEND 


{{GO OFF THE END? 


BNE 
MOV 


5$ , 

#$T&QSRT,$TKQI$ 


M BRANCH IF NO 

RESET, THE POINTER 


RTI 




; ; RETURN 



4$: 



{ *SOFTWARE SWITCH REGISTER 
S*RQU'TtNE IS ENTERED FROM 
{^SERVICE THE TEST FOR 
{♦CALL WHEN OPERATING IN 
SCKSWR: 



CMP 


#SOT£G,SWR 


BNE 


15$ 


TST© 


WHS 


BPL 


15$ 


MVS 


#$TKB,~fSf»> 


BIC 


0"C177,(SP 


CMP- 


(SP>.#7 


BNE 


2$ 



CHANGE; ROUTINE. 

THE TRAP HANDLER . AND WILL 

IN SOFTWARE SWITCH REGISTER TRAP 
INTERRUPT MODE. 

; ;IS THE -SOPT-SWR SELECTED 

{{E&IT IF NOT 

IMS A CHAR WAITING? 

; ;IF NOT. EXIT 

» » YES 

; ;MAKE IT 7-BIT ASCII 

; ;IS IT A CONTROL-G? 

; ; IF NOT, PUT IT IN THE TTY QUEUE 

I ; AND EXIT 



000001 *$.: 



{♦CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
{♦ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 

f#C0NTROL-G SEING T V PED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 



BEQ 
TST 
JSR 
CLR 
MOVB 

TYPE 

$gtswr: TYPE 

MOV 
TYPOC 
TYPE 
19$: CLR 
CLR 

7$: TST8 
BPL 



$AUTOB,#1 

2$ 

(SP) + 

PC.STKIflf 
•STKS 

#1 ,$tmm 

, $CNTLG 



-CSP1 



-<SP) 
-(9P) 

#$TKS 
7$ 



MING IN AUTO-MODE? 
; BRANCH IF YES 
; ; CLEAR CONTROL-G OFF STACK 
; ; FLUSH THE TTY INPUT QUEUE 
; {DISABLE TTY KEYBOARD INTERRUPTS 
{ {SET INTERRUPT MODE INDICATOR 

;;ECHQ THE CONTROL-G CO) 

; ; TYPE CURRENT CONTENTS 

; J SAVE SWREG. FOR TYPEOUT 

i;GO TYPE— OCTAL ASCISCALL DIGITS) 

; ; PROMPT FOR NEW SWR 

; ; CLEAR COUNTER 

f ; THE MEW SWR 

; ;CHAR THERE? 

? ; IF NOT TRY AGAIN 

J {PICK UP CHAR 

HlMKI IT 7-BIT ASCII 
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SEG 9072 



2666 

2667 
2668 
2669 
2670 

2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 

■2696 
2697 
2698 
2699 

'2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 



023340 
023344 

023346 
023352 
023356 



023360 
023364 
023366 
023372 
023374 
023402 
023406 
023412 
023420 
023422 
023430 
023432 
023436 
023442 
023444 
023450 
023452 
023456 
023462 
023464 
023466 
023470 
023472 
023476 
023502 
023504 
023510 



021627 
001005 
104401 
062706 
000757 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
123727 
001003 
01 27^7 
000002 
004737 
021627 
002420 
02 1 627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
C00720 



023512 
023514 
023522 
023526 
023530 
023534 
023536 
023536 
023542 



024072 
000006 



000015 

000004 

000002 
000006 
001 161 
001 135 

000100 

022440 
000060 



000060 
000002 



000002 

177776 



4401 001160 



01 1646 

01 6666 000004 
005066 000004 
005046 

012746 023538 
000002 

005737 022736 
001775 



TYPE 

ADD 

BR 



•DSASl LSB 



10$ 

,$C*ITLU 

#s,sp 

19$ 



{{IS IT A CONTROL-U? 

; ; BRANCH IF NOT 

; ;YES. ECHO CONTROL-U (*U) 

; ; IGNORE PREVIOUS INPUT 

LET'S TRY IT AGAIN 



10$: 


CMP 
BNE 


(SP) ,015 
16$ 


; ; IS IT A <CR>? 
; ; BRANCH IF NO 




TST 


4(SP) 


; ; YES, IS IT THE FIRST CHAR? 




BEQ 


11$ 


; ; BRANCH IF YES 




MOV 


a(SP) , ®sm 


: ; SAVE NEW SWR 


11$: 


ADD 


#6,SP 


5 {ClEAR UP STACK 


14$: 


TYPE 


,$CRLF 


; ; ECHO <CR> AND <l.F5» 




CMPB 


$INTAG»#1 


{{ RE-ENABLE TTY KBD INTERRUPTS? 




BNE 


15$ 


; ; BRANCH IF NOT 




f?t 
RTI 


#1O0,@$TKS 


RE-ENABLE TTY KBD INTERRUPTS 


1-5$: 


{ { RETURN 




JSR 
CMP 


PC,$TYPEC 


; ; ECHO CHAR 
• . CHAR < 0? 




BLT 


18$ 


; ; BRANCH IF YES 




CMP 


<SP},#67 


5 5 CHAR > 7? 




BGT 


#60,{SP)* 


;; BRANCH IF YES 




BIC 


; { STRIP-OFF ASCII 




TST 


2(SP) 


{{IS THIS THE FIRST CHAR 




BEQ 


17$ 


; ; BRANCH IF YES 




ASL 


(SP) 


{ ;NO, SHIFT PRESENT 




ASL 


(SP) 


{ ; CHAR OVER TO MAKE 




ASL 


(SP) 


{{ ROOM FOR NEW ONE, 


17$: 


INC 


2<SP) 


; {KEEP COUNT OF CHAR 




BIS 


»2(SP) ASP) 


J ;SET IN NEW CHAR 




BR 


7$ 


{{GET THE NEXT ONE 


18$: 


TYPE 


,$ques 


; TTYPE ?<CRXLF> 

; {SIMULATE CONTROL-U 




BR 


20$ 



;*THIS ROUTINE WILL INPUT k SINGLE CHARACTER FROM THE TTY 
I^CALL: 



RDCHR 

RETURN HERE 



SRDCH8I MOV 
MOV 
CLR 

CLR 
MOV 
RTI 

84$*. 

1$: TST 



(SP).-(SP) 
4<SP).2($P) 

4(SP) 

-(SP) 



STKCNT 
1$ 



; ; GET A CHARACTER FROM THE QUEUE 
{ {CHARACTER IS ON THE STACK 
; {WITH PARITY BIT STRIPPED OFF 



; ; PUSH DOWN THE PC AND 
? » THE PS 

; ;GET READY FOR A CHARACTER 
; ;PUT NEW PS ON STACK 
; ;PUT NEW PC ON STACK 

?;pop um PC AND PS 
J ; WAIT ON A CHARACTER 
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2722 


023544 


005337 


022736 


2723 


023550 


1 1 7766 


177166 


2724 


023556 


005237 


022742 


2725 


023562 


023727 


022742 


2726 


023570 


001003 




2727 


023572 


012737 


022744 


2728 


023600 


000002 




2729 








2730 








2731 








2732 








2733 








2734 








2735 








2736 


023602 


010346 




2737 


023604 


005046 




2738 


023606 


01 2703 


024038 


2739 


023612 


022703 


024066 


2740 


023616 


' 101456 




2741 


023&20 


104407 




2742 


023622 


1 12613 




2743 


023624 


122713 


000177 


2744 


023630 


001022 




2745 


023632 


005716 




2746 


023634 


001007 




2747 


023636 


112737 


000134 


2748 


023644 


104401 


024034 


2749 


023650 


012716 


177777 


2750 


023654 


005303 




2751 


023656 


020327 


024036 


2752 


023662 


103434 




2753 


023664 


11 1337 


024034 


2754 


023670 


104401 


024034 


2755 


023674 


000746 




2756 


023676 


005716 




2757 


023700 


00140.6 




2758 


023702 


1 12737 


000134 


2759 


023710 


104401 


024034 


2760 


023714 


005016 




2761 


023716 


122713 


000025 


2762 


023722 


001003 




2763 


023724 


104401 


024072 


2764 


023730 


000726 




2765 


023732 


122713 


000022 


2766 


023736 


00101 1 




2767 


023740 


105013 




2768 


023742 


104401 


001161 


2769 


023746 


104401 


024038 


2770 


023752 


000717 




2771 


023754 


104401 


001160 


2772 


023760 


000712 




2773 


023762 


11 1337 


024034 


2774 


023766 


104401 


024034 


2775 


023772 


122723 


00001 S 


2778 


023776 


00130S 




2777 


024000 


10§063 


mvn 



DEC STKCNT ; ; DECREMENT THE COUNTER 

MOVB @$TKQ0UT.4(SP) ; ; GET ONE CHARACTER 

INC STKOOUT ; ; UPDATE THE POINTER 

CMP STKQOUT , fSTKQEND ; ;OID IT GO OFF OF THE END? 

BNE 2$ ; {BRANCH IF NO 

MOV #$TKGSRT,$TKQOUT { {RESET THE POINTER 
2$: RTI ; {RETURN 

{*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

;®CALLS 

; ; INPUT A STRING FROM THE TTY 

{{ADDRESS OF FIRST CHARACTER WILL BE OH THE STACK 
{ {TERMINATOR WILL BE A BYTE OF ALL O'S 

? {SAVE R3 

{ {CLEAR THE RUBOUT KEY 

{ {GET ADDRESS 
{ { BUFFER. FULL? 

;;BR IF YES 

{ {GO READ ONE CHARACTER FROM THI TTY 

I {GET CHARACTER 
{ {IS IT A RUBOUT 
{ ; BR IF NO 

{{IS THIS THE FIRST RUBOUT? 

{{BR IF NO 
? {TYPE A BACK SLASH 

J {SET THE RUBOUT KEY 
; { BACKUP BY ONE 
: STACK EMPTY? 

BR IF YES 
, SETUP TO TYPEOUT THE DELETED CHAR. 
{ {GO TYPE 

{ {GO READ ANOTHER CHAR. 
{ {RUBOUT KEY SET? 
; ;BR IF MO 

;;TYPF a BACK SLASH 

{{CLEAR THE RUBOUT KEY 
; { IS CHARACTER A CTRL U? 
;;BR IF m 

{{TYPE A CONTROL "U 58 
» I GO START OVER 
5 {IS CHARACTER A B "R 8 ? 
{ } BRANCH IF NO 
{{CLEAR THE CHARACTER 
5 {TYPE A 8 CR B & "LP® 
{ {TYPE THE INPUT ST RIM© 
{ {GO PICKUP ANOTHER CHACTER 
{ {TYPE A '?• 

{ {CLEAR THE BUFFER AND LOOP 

{ { ECHO THE CHARACTER 

{ {CHECK FOR RETURN 

I { LOOP IF WOT RETURN 

? {clear mimn am is) 



;» 


StDLIN 




1* 


RETURN 


HERE 








SROlX.Nt 


MOV 


f?3 f «£$P) 




CLR 


-(SP) 


1$: 


MOV / 


#$TTYlN r ft3 




CMP 1 


#$TTY«*30, 




BLQS 
RDCHR 


4$ 




MOVB 


<SP)+,(R8) 


10$s 




'«m ( (tt3) 




iNE 


s$ 




TST 


«SP) 




BNE 


6$ 




MOVB 


*'\.9| 




TYPE 


,9S 


©$: 


3K 


*-i,(SP) 

R3 




CMP 


R3 t #$TTVSi 




BLO 


4$ 




MOVB 


(R3),99 




TYPE 


,9$ 




BR 


2$ 


S$5 


TST 


(SP) 




BEQ 


7$ 




MOVB 


#'\.9$ 




TYPE 


,9$ 




CLR 


(SP) 


7%'. 


CMPB 


#25, 




BNE 


8$ 




TYPE 


,$CNTLU 




BR 


1$ • 


Sis 


CMPB 


*22.(R3) 




BNE 


3$ 




SLRB 


(H3) 




TYPE 
TYPE 


*$CRIF 

( $TTYfN 




BR 


2$ 


4$: 


TYPE 


,$QU£$ 




BR 


1$ 


3$: 


MOVB 


(R3),9$ 




TYPE 


*m 




CMPB 


*19 t (R3)* 




BNE 


2$ 




ems 


-KR3) 



f 
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SEO 0074 



2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2737 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 



024004 
024010 
024012 
024014 
024016 
024024 
024032 
024034 
024035 
024036 
024066 
024072 
024077 
124104 
0241 12 
024115 
024122 



024126 
024130 
024136 
024140 
024142 
024144 
024146 
0241 50 
024152 
024154 
024156 
024160 
024162 
024164 
024166 
024170 
024172 
0241 74 
024200 
024202 
024204 
024206 
024212 
024216 
024220 
024222 
024224 
024226 



104401 
005726 
01 2603 
01 1646 
016666 
01 2766 
000002 

000 

000 
000030 
177607 
052536 

136 
005015 
020075 

040 
036440 



01 1646 
016666 
01 0046 
010146 
01 0246 
104410 
012600 
005001 
005002 
1 12046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
005726 
01 0166 
010237 
012602 
012601 
012600 
000002 
000000 



000004 
024036 



000377 
005015 
006507 
053523 
COO 
047040 
000040 



000002 
000004 



000 
000012 

020122 



000012 

024226 



TYPE 
TST 
MOV 

MOV 
MOV 
MOV 
RTI 
.BYTE 
. BYTE 

sttyin: .blkb 

sbell: .asciz 

scntlu: .asciz 

scntlq; .asciz 

.ASCIZ 



9$ • 



,$LF ; :TYPE A LINE FEED 

(SP)+ ; ; CLEAN RUBOUT KEY FROM THE STACK 

(SP)+,R3 : : RESTORE R3 

(SP).-(SP) ; ; ADJUST THE STACK AND PUT ADDRfSS OF THE 

4(SP),2(SP) :: FIRST ASCII CHARACTER ON IT 

#$TTYIN.4(SP) 

; ; RETURN 

; ; STORAGE FOR ASCII CHAR. TO TYPE 

;; TERMINATOR 

30 ; ; RESERVE 30 BYTES F08 TTY INPUT 

<207><377><377> ;?CODE FOR BELL 
/-U/<15><12> ; ; CONTROL «U 8 
/ W G/<15><12> ; ; CONTROL B G B 

<1SX12>/SWR «» / 



. . *************** ********** ******** 
:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY. 
{•CALLS 
{* RDOCT 
:* RETURN HERE 

»* 

Ts 



J J READ AN OCTAL NUMBER 

{{LOW ORDER BITS ARE ON TOP OF THE ST ACM 
; {HIGH ORDER BITS ARE IN SHIOCT 



000004 000002 



2$S 



sis 



Shi OCT: 



MOV 


(SP).-(SP) 


;; PROVIDE SPACE FOR THE 


MOV 


4(SP),2(Sf») 


J J INPUT NUMBER 


MOV 


RO.-(SP) 


; ; push ro on stack 


MOV 


R1,-(SP) 


{ {PUSH R1 ON STACK 


MOV 


R2,-(SP) 


{ {PUSH R2 ON STACK 


RDLIN 




; : READ AN ASCIZ LINE 


my 


(SP)*,R© 


5 {GET ADDRESS OF 1ST CHARACTER 


CLR 


R1 


1 J CLEAR DATA WORD 


CLR 


R2 




MOVB 


(R0)+,-(SP) 


; ; PICKUP THIS CHARACTER 


BEO 


3$ 


J ! IF ZERO GET OUT 


ASL 


R1 


% J*2 


ROL 


R2 




ASL 


R1 




ROL 


R2 




ASL 


R1 




ROL 


R2 




BIC 


«rc?,(SP} 


; {STRIP THE ASCII tJUNK 


ADD 


(SPR,R1 


? ; ADD IN THIS DIGIT 


BR 


2$ 


• ; LOOP 


TST 


(SPH 


: ; CLEAN TERMINATOR FROM STACK 


MOV 


R1 ,12(SP) 


% ; SAVE THE RESULT 


MOV 


R2, SHIOCT 




MOV 


(SP)+,R2 


; {POP STACK INTO R2 


MOV 


(SP)+,R1 


{ {POP STACK INTO R1 


MOV 


(SP)+,R0 


; JPOP STACK INTO RO 


RTI 




} ; RETURN 



; ? HIGH ORDER BITS 60 HERE 
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2834 






2835 






2836 






2837 






2838 






2839 






2840 






2841 


024230 


010046 


2842 


024232 


016600 


2843 


024236 


005740 


2844 


024240 


11 1000 


2845 


024242 


006300 


2846 


024244 


016000 


2847 


024250 


000200 


2848 






2849 






2850 






2851 






2852 


024252 


01 1646 


2853 


024254 


016666 


2854 


024262 


000002 


2855 






2856 






2857 






'2858 






2859 






2860 






2861 






2862 






2863 


024264 


024252 


2864 


024266 


022270 


2865 


024270 


022534 


2866 


024272 


022510 


2867 


024274 


022550 


'2868 






2869 


024276 


023300 


2870 






2871 


024300 


023210 


2872 


024302 


023512 


2873 


024304 


023602 


2874 


024308 


024126 


2875 






2876 






2877 






2878 






2879 


024310 


012737 


2880 


024316 


01 2737 


2881 


024324 


010046 


2882 


024326 


01 0146 


2883 


024330 


010246 


2884 


024332 


010346 


2885 


024334 


010446 


2886 


024336 


01 0546 


2887 


024340 


017746 


2888 


024344 


©10637 


2889 


024350 


012737 



I J****************®***************® ********** ************** ****** 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP' INSTRUCTION 
S*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIfccD ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
{•GO TO THAT ROUTINE. 



STRAPS 


MOV 


RO.-(SP) 


; ; SAVE RO 




MOV 


2(SP),R0 


{ ;GET TRAP ADDRESS 




TST 


»(R0) 


; ; BACKUP BY 2 




MQVS 


(RO).RO 


; ; GET RIGHT BYTE OF TRAP 




ASi 


RO 


; ; POSITION FOR INDE&INd 




MOV 


$TRPAD(R0),R0 


% \ INDEX TO TABLE 




RTS 


RO 


;?GO TO ROUTINE 


?|TH1$ 


IS USE 


TO HANDLE THE a 6! 


stpr-i « mem 


STRAPS! 


wm 


CSPh-(SP) 


5 5MOVE THE PC DOWN 




wv 


4(SP),2{$P) 


J {MOVE THE PSW DOWM 




RTI , 




| J RESTORE THE PSW 



.S8TTL TRAP TABLE 



SETHIS TABLE CONTAINS THE ST&RTtTO 
{•BY THE "TRAP* INSTRUCTION. 



ADDHESSES OP THE ROUTINES CALLED 



.mm 


STRAPS 


STYPE 


! ;CALL*TYPE 


STYPOC 


; ?CALL=TYPOC 


STYPOS 


? f CALLsTYPOS 


STYPON 


; :CALL»TYPON 


$GTSWR 


5 SCALL^GTSW 


SCKSWR 


f ;CALL=CKSWR 


SRDCHR 


; ?CALL=RDCHR 


SRDLIN 


J SCALL»RDLIN 


SRDOCT 


5 iCALL^RDOCT 



.S8TTL PQ$ER DOWN AND UP ROUTINES 



fRAP+K 104401 ) TTY TYPEOUT ROUTINE 

TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP*4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP+&( 104405) GET SOFT-SWR SETTING 

TRAP*@( 104408) TEST FOR CHANGE IN SOPT-SWR 

TRAP+7( 104407) TTY TYPEIN CHARACTER ROUTINE 

TRAP+10M04410) TTY TYPEIN STRING ROUTINE 

TRAP+1 1(104411) READ AN OCTAL NUMBER FROM TTY 



024450 

000340 



154574 
024454 
024362 



000024 
00002® 



5 POWER DOWN ROUTINE 

$PWRDN5 $OV 



MOV 
MOV 



#$ILLUP,9#PWRVEC ;;SET FOR FAST UP 
#34O,$0PWRVEC+2 ; ;PRI0:7 



RO.-(SP) 

R1,~(SP) 

R2,-(SP) 

R3,-(SP) 

R4,»(SP) 

R5,»(SP) 

*SWR,-(SP) 

SP.SSAVR8 



; ; PUSH RO ON STACK 

: ; PUSH R1 ON STACK 

5 ; PUSH R2 ON STACK 

5 ; PUSH R3 ON STACK 

; ; PUSH R4 ON STACK 
5 : PUSH R5 ON STACK 

.PUSH #SWR ON STACK 

. | SAVE SP 

} | SET UP VECTOR 
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Sid 9@?§ 



2890 


024356 


000000 








HALT 


,«2 


* * HANG UP 




2891 


024360 


000776 








BR 




2892 




















2893 




















2894 










J POWER 


UP ROUTINE 






2895 


024362 


01 2737 


024450 




SPWRUP i 


l$OV 


#$IILUP,@#POTVEC 






2896 


024370 


01 3706 


024454 






MOV 


$SAVR6,SP 


£ ? GET SP 




2897 


024374 


005037 


024454 






CLR 


$SAVR6 


|?WAIT LOOP FOR THE 


TTf 


2898 


024400 


005237 


024454 




1 s » 


INC 


SSAVRS 


; ; WAIT FOR THE INC 




2899 


024404 


001375 








BNE 


1$ 


; ;OF WORD 




2900 


024406 


01 2677 


1S4S26 






MOV 


(SPH,@SWt 


••POP STACK INTO 




2901 


024412 


01 2605 








MOV 


(SP)+, R5 


', ; POP STACK INTO R5 




2902 


024414 


01 2604 








MOV 


(SP)+ e R4 


; ; POP STACK INTO R4 




2903 


024416 


01 2603 








MOV 


(SP)+,R3 


;;POP STACK INTO S3 




2904 


024420 


01 2602 








MOV 


(SP)+ 9 R2 


; ;POP STACK INTO R2 




2905 


024422 


01 2601 








MOV 


C SP)-f , R1 


5 5 POP STACK INTO R1 




2906 


024424 


01 2600 








MOV 


(SP)+, RO 


; ;P0P STACK INTO RO 




2907 


024426 


01 2737 


024310 


000024 




MOV 


#$PWRDN ,##PWRVEC 


•j SET UP THE POWER 


mm vecTOi 


2908 


024434 


01 2737 


000340 


00002S 




MOV 




; ;PRIO:7 




2909 


024442 


104401 








TYPE 




; report the pmm failure 


2910 


024444 


024456 








.WORD 


$POWER 


? 1 POWER FAIL MESSAGE 


mimm 


291 1 


024446 


000002 








RTI 








2912 


024450 


000000 






SILLUP* 


HALT 




; {The power up sequence ms, stmim 














BR 


.-2 


% ? BEFORE THE POWER 


mm was cwleti 


2914 


024454 


000000 






SSAVRS! 







5 ; P)JT THE SP HERE 




2915 


024456 


005015 


04752© 


042527 


SPOWEH: 


*A$CU 


<15><12>" POWER" 






2918 


024464 


000122 
















2917 












*EVEM 








2918 




000001 








.END 
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CROSS 


REFERENCE 


table — 


mm symbols 


AUTSL2 


002644 


443* 


680 










BA 


001406 


275* 


1 368* 






1372* 


13S3 1427 


BADINP 


003274 


504 


506 


513# 








BADONE 


010360 


1145* 












BAD. IN 


01 1772 


1306* 












BAD. ON 


013762 


1570# 


1586 


1588 








BASE 


001266 


2190 


035 










BASINC 


005360 


840 


852* 










BEGCT 


017422 


18810 


2106 










BEGCT1 


017430 


1884# 


210S 










BEGIN 


002622 


421 


42 7# 










BITO 


000001 


114* 


107S 


1398 


141 S 


1432 


1971 1978 


BITOO « 


000001 


1 04# 


114 










BIT01 n 


000002 


103^ 


113 










BIT02 » 


000004 


102# 


112 










BIT03 = 


000010 


101# 


111 










BIT04 - 


000020 


100# 


11.0 










BIT05 = 


000040 


99* 


109 










BIT06 * 


000100 


98# 


108 










BIT07 = 


000200 


97# 


107 










BIT08 a 


000400 


96# 


106 










8IT09 ■ 


00100C 


950 


105 




/ 






8IT1 * 


000002 


1130 


1396 


1431 


2631 


2033 


mm mm 


BIT10 a 


002000 


94# 


139S 


1412 








BIT11 - 


004000 


93# 


1 395 


1429 








BIT12 * 


010000 


92# 


289 










BIT 13 s 


020000 


91# 


1774 


1784 


221 S 






8IT14 b 


040000 


90* 


SOS 


541 


639 


073 


1418 154? 


BIT15 » 


100000 


BS# 


609 


1000 


1002 


1111 


1883 


BIT2 r. 


000004 


11 2# 


1413 


1431 


1S28 


1934 


1938 1S4S 


BITS - 


000010 


1110 












BIT4 » 


000020 


110* 


800 


80S 


©OS 


mi 


939 ©42 


BITS ■ 


000040 


109# 


291 


7S4 


1760 






BITS a 


000100 


108# 


290 


1356 


1361 


1471 


18S1 1955 


BIT7 a 


000200 


107# 


sso 


594 


1113 


mm 


1891 1913 


BITS = 


000400 


106# 


1429 










BIT9 = 


001000 


105# 


292 










BPTVECa 


000014 


121* 












BUFF 


013700 


275 


15810 










BUFR 


022232 


2331* 


2332 


2344* 


234? 


mm 


p,mm zzm 


BUSADR 


001336 


2530 


796* 


867 


927* 






CHECK1 


005450 


871 # 


831 


883 








CHKCNT 


001350 


258# 


1014* 


1©SS*< 








CKSWR « 


104406 


2871# 












CLRDPL 


020336 


1972 


1980 










CNTSIN 


001322 


242 # 


70S* 


976* 








COM 


012320 


1351# 


1364 










COMMON 


012314 


135C# 












COMND 


001316 


238* 


788* 


904* 


998 






CONTIN 


011404 


1230 


1232$ 


1298 








CONTRL 


001332 


25 10 


798* 


869 








CR « 


000015 


29# 


1381 


246® 


247® 






CRLF • 


000200 


30# 




2440 








CYCLE 


004174 


534 


672# 










CYCLE2 


004220 


678# 












CYCL2 


004210 


674 


mm 











5EQ 0078 



CYL 


013552 


1514* 


1518* 


1522* 


1 527# 




CYLADR 


005302 


793 


8350 


922 






CYLAD2 


005306 


8360 


856 








CYLBAS 


001315 


2370 










CYLCNT 


001342 


2550 


797 








CYLOFF 


005312 


808 


8370 


945 






CYLTBL 


001274 


2260 


821 


836 




DA 


00141 


2760 


1 365* 


1 374* 


1375 


1391 


DDISP = 


177570 


360 


181 


338 






DISPLA 


001 142 


1810 


338* 


346* 






DISPRE 


0001 74 


1360 


346 






2061 


DN1DRV 


020352 


1959 


2030 


2032 


2038 


D02 


004250 


546 


614 


6870 






DPL s 


010000 


2890 


1 968 








DRACTV 


001 1 64 


1 940 


533* 






934 


DRCNT1 


00131 1 


2330 


455* 




__ . 
fan 


DRIVE 


001314 


2360 


691 * 


710 






DRIVO 


020614 


1 1 60 


1 1 75 












2303* 


2307* 


231 1 


23 19 




DRIV1 


020616 


21530 










DRIV2 


020620 


21540 










DRIV3 


020622 


21550 










DRIV4 


020624 


21560 










DRIV5 


020626 


21570 










DRIV6 


020630 


2 1 580 










DRIV7 


020632 


21590 










DRVCNT 


020446 


1322* 


1326* 


1327 


1330 


1 3 4 ^ A* 

21 Kc# 


DRVO 


001206 


1980 


467 


528 


539 


607 


DSKADR 


001334 


2520 


698* 


730 


800 


802* 






939* 


942* 


1 039 






DSKTMP 


001352 


2590 


697* 


925 


1 341 * 


1352 






1 741 


1 767 


1 790 






DSWR a 


177570 


350 


180 


337 






ECNT 


001321 


241 


704* 


963® 


978 




emtvec* 


000030 


1 240 










EM 1 


020450 


1 332 


1 857 


1 89, 2 


1 909 


1931 


EM1 


021532 


21 94 


228 Oi? 








EM1 1 


022234 


231 4 


2*40 1 








EM12 


022244 


2316 


24030 








EM2 


020461 


1 860 


1 895 


21 1 of 






EM3 


020473 


1912 


21 1 80 








EM4 


020506 


945 


21200 








EMS 


020521 


1 935 


21220 








EM6 


020537 


1977 


21250 








EM7 


020560 


1988 


21280 








EM8 


020573 


2048 


21300 








EM9 


020601 


2037 


2132# 








ERRCHK 


006102 


873 


9550 








ERRFLG 


001360 


2620 


874 


876* 


960* 


970* 


ERRRF 


001 424 








1 477* 


1478 


ERRRFC 


001426 


2830 


1344* 


1444* 


1484* 


1487 


ERRVEC= 


000004 


1170 


335 


336* 


347* 




ERRWCH 


001430 


2840 


1345* 


1452* 


1553* 


1554 


ERRWCS 


001432 


2850 


1346* 


1453* 


1549* 


1fSQ 


ERRWF 


001422 


2810 


1342* 


1403* 


1459* 


14B0 


EXECUT 


005402 


799 


863# 


877 


891 


mi 



1391 1408 1435 1440 



20S1 207© 2088# 



655 
605* 



685 
849* 



792 
850® 



909 
666 



920 

925* 



933* 

1729 



937 
1734 



2034 204S 2114# 2318 
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EXIT 


003366 


529 


5380 
























EXITA 


003654 


6010 


603 


641 






















EXITB 


003662 


6040 


637 
























EXITX 


003430 


540 


542 


SS0# 






















EXIT2 


006076 


910 


9490 
























EXTFR2 


003372 


5390 


544 


549 


113S 




















EXTR 


001420 


2800 


1349* 


1397 


1414 


1430 


















FAIL 


013324 


14930 


1.5$ 1 
























FAILED 


013306 


1488 


1490# 
























FFLAG 


021526 


2195* 


2216* 


2226 


2236 


2278# 


















FIL.DN 


003672 


6070 


610 
























GD1 


012534 


1328 


1 3830 
























GNS * 




135 


365 


377 


381 


385 


339 


393 


397 


401 


405 


409 


414 


446 






450 


479 


491 


498 


516 


553 


563 


571 


580 


619 


863 


708 


716 






720 


744 


751 


758 


778 


869 


983 


989 


994 


1023 


1032 


1037 


1045 






1051 


1$B8 


1092 


1097 


1105 


1181 


1148 


1157 


1185 


1189 


1210 


1214 


1218 






1222 


1242 


1309 


1314 


13S0 


1465 


1496 


1573 


1578 


1599 


1607 


1611 


1615 






1621 


1 627 


1640 


iMA 


1648 


1653 


1657 


1669 


1673 


1679 


1689 


1695 


1700 






1704 


1708 


1713 


1717 


1721 


1725 


1754 


1764 


1778 


1788 


1806 


1811 


1819 






1825 


1900 


2026 


2067 


2184 


218,8 


219S 


2333 


2370 


2390 ■ 


2864 


2865 


2866 






2867 


2869 


2871 


asm 


2M3 


a&?4 
















GO 


003312 


512 


5230 
























GDOT 


012502 


13770 


























G01 


003324 


5270 


532 


537 


1004 




















G02 


003336 


525 


5300 
























G03 


003344 


531 


5330 
























GTSWR > 


104405 


360 


1193 


1229 


1318 


2220 


2869# 
















HDALGN 


021076 


21940 


2200 


2202 


2212 


1214 


2276 
















HDRFLG 


001320 


2400 


1012* 


1019 


1025* 




















HT » 


00001 1 


270 


2438 


2479 






















IDEX 


001324 


2440 


524* 


676 


702* 




















I LEGAL 


004 -.42 


466 


650 


BBOM 






















INITIL 


004524 


723 


7290 


886 






















INITI2 


004536 


7320 


753 


760 






















INIT.2 


010466 


1 1700 


























INSYS2 


003526 


5680 


600 
























10 


012540 


1367 


1369 


1371 


1373 


13§0# 


1473 


1552 














IOTVECa 


000020 


1220 
























SOS 


KYTEMP 


001330 


2500 


456* 


457$ 


458 


460* 


483* 


434 


485 


48? 


501* 


§01 


503* 






507* 


508* 


511 


648 


esi* 


652 


653* 














LDFLG 


004224 


6790 


1132 
























LDSEEK 


01 1604 


12620 


1297 
























LF ■ 


000012 


280 


1381 


2473 


2479 




















LFLF * 


105212 


2740 


























LOGA 


001 166 


1960 


454 


511* 


523 




§37 




90S 


1072 


112i 








HANSEL 


010356 


1057 


11390 


1757 


1829 




















MASK 


005234 


613 


678 


81 6# 


921 




















MASKER 


004030 


596 


598 


632f 






















MODE 


001312 


141* 


234# 


314.* 


367 




















MORE 


013066 


14400 


1443 
























MOUNT 


004316 


699 


7020 
























MSKTBL 


001256 


2100 


677 


1066 






















NEXT 


012416 


13660 


1376 
























NG 


002614 


419 


422# 
























NXT1 


017604 


1890 


1905 


1908 






















NXT2 


017700 , 


1923 


1929 


1936 


1939 
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SEQ 0080 



OSPFLG 


001 326 




1070* 


1 206 


1 224* 




PASTBL 


001 246 


2080 










PATTRN 


001 362 




792* 


796 


803* 


806* 


PI RQ 55 


1 77772 












PI ROVEc 


000240 












PRONUM 


001313 




494* 


519$ 






PR01 


003306 




51 9# 








PR02 


0031 60 




494$ 


518 






PRTTWO 


1 4626 


1 637# 










PRO * 


000000 












PR1 = 


000040 












PR2 s 


000100 


53# 










PR3 s 


0001 40 


54# 










PR4 s 


000200 


550 










PR5 = 


000240 


56# 










PR6 » 


000300 


57$ 










PR7 a 


000340 


580 










PS a 


1 77776 












PSW = 


1 77776 












PWRVEC* 


000024 


1 23# 




332* 


2879* 


2SS0* 


RBA 


001414 


278$ 




1438 


1 439 




RBUFF 


01 3702 


278 


1 562# 








RDBUFF 


007356 


927 




• 


1 742 


1 748 


RDCHK 


006450 


932 




* 






RDCHKO 


1 7020 












RDCHR a 


1 04407 


482 


KArt 


1 580 


2741 


2372$ 


RDL1N s 


1 044 1 




*51 OS 




3873$ 




RDLINK 


005632 




547 


616 


9G2# 


1 133 


RDOCT ~ 


1 044 1 1 




582 


4 1 99 


3874$ 




RDTBL 


001 226 












RD1 


005656 






9 


®4? 




RD2 


005670 


907 










RD3 


005676 












RD4 


005740 


923 




946 






RD5 


005746 




93a 


941 






RD6 


005752 


927# 










RD7 


006052 
001 356 


938 










READCS 






1744 


1?f$ 




RESTRT 


006232 


965 










RESVEC= 


0000 1 


1 \ \ of 










RET FR2 


007270 












RETRN2 


006446 


968 


^Z, 








RETRN3 


005374 


855 










RETRN4 


004036 


633 


635w 








RETRY 


013214 


1 461 


1 469$ 


_ 

1 479 


1489 


15S6 


RFCERR 


013262 


1441 


1484# 








RFERR 


01 3244 


1419 


1 477$ 








RKBA 


001374 


268$ 


867* 


1393* 


1410* 


1427* 


RKCS 


001370 


266# 


736* 


738 


763* 


765 






1 1 73 




1179 




1233 






1394* 
1418 


1395* 
1428* 


SI 


1397* 
1430* 


til 






1634 


1661* 


1663 
1780* 


1675 


1681* 






1770* 


1772 


1782 


1793* 






2051* 


2052 


2055* 




2074* 






2249* 


2250 


2257* 




3369* 



§20* 940® 943* 1016 1728* 173S 1786* 1788 



3889* 2895* 2907* 
1791 1798 2268 



1735* 


1742* 


1768* 


1791* 


2268* 


2328 






869* 


871 


955 


958* 


961 


969* 


972 


1171* 


1265* 


1267 


1282* 


1284 


1353 




1358 


1360* 


1399 


1401 


1411* 


1412* 


1413* 


1414* 


1415* 


1416 


1432* 


1448 


1450 


1469* 


1470* 


1485 


1547 


1632* 


1683 


1691 


1730* 


1732 


1737* 


1739 


1744* 
1963* 


1746 


1795 


1845* 


1846 


1864* 


1902* 


1903 


1965 


207 5 


2092* 


2094 


2230* 


2231 


2233* 


2234 


2247 


237 S 


2321* 


2322 


2329 
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1162* 1170 

1408* 1409* 

1790* 1853* 

2326 2377* 

974 1163 

1921 1925 



SEQ 0031 



RKDA 


001376 


269# 


735* 


746* 


762* 






1291* 


1351* 


1352* 


1391* 






1660* 


1729* 


1734* 


1741* 






2091* 


2229* 


2256* 


2266* 


RKDS 


001364 


264# 


747 


754 


■X 






1760 

2098 


1854 


1866 






2305 


23*2 


2349 


RKER 


001366 


265# 


1665 


lllo* 


1774 


RKWC 


001372 


267# 


1347* 


1407* 


RWC 


001416 


279# 


1407 


1436 


RWS 


0001 00 


290# 


1274 


1292 
1226 


1866 


RWSRDY 


01 1356 


1207 


1225# 




SEC 


013564 


1502* 


1506* 


mr 




SECCNT 


001344 


256# 


929 


1743 


SECOND 


003452 


369 


560# 






SECONE 


006752 


675 


1066* 






SECSYS 


003050 


22&# 


476# 


493 


sm 


SECTBL 


001305 


906 


936 




SECT.O 


013772 


431 


1575# 






SECT . 1 


012002 


430 


1311# 






SECT. 2 


010370 


429 


1154* 






SECT. 3 


002642 


428 


442# 






SECT. 4 


017300 


432 


1844# 






SECT. 5 


020634 


433 


2181 # 






SECT. 6 


021544 


434 


2302* 


2310 




SEEKI 


001402 


271# 


1253* 


:ns 




SEEKO 


001404 


272# 


1255* 




SEKSET 


01 1570 


1254 


1258# 






SHFCNT 


020444 


1321* 


1323 


1325* 


am# 


SHF1 


013616 


1507 


151 1 


1541 # 




SHF2 


013614 


15400 








SHF3 


013612 


1503 


1515 


1519 


1539* 


SIN = 


001000 


2920 


2013 






SINST 


020200 


2014 


20420 






SMTME 


005614 


737 
1731 


'64 
1738 


870 

174$ 


892# 
1771 


STACK * 


001100 


22# 


316 


327 


1003 


START 


001440 


142 


315# 


555 


1383 


STARTR 


001434 


139 


31 4# 






STFLG 


001325 


245# 


370 


373* 




STKLMT® 


177774 


33# 








STOP 


013604 


1524 


1534* 






STORE 


004072 


462 


648# 






STRT1 


001774 


374# 


427 






SUR 


013576 


1510* 


1532# 






SWR 


001140 


180# 


325 


337* 


338 






2223 


2252 


2261 


2274 


SWREG 


000176 


137* 


345 


358 


1191 


SWTCH 


021530 


2223* 


2224* 


2239 


2244 


SWO a 


000001 


86# 








SWOO * 


000001 


760 


86 






SW01 * 


000002 


75# 


85 






SWO 2 * 


000004 


74# 


84 






SWO 3 * 


000010 


730 


S3 






SW04 s 


000020 


72# 


82 






SWO 5 » 


000040 


71# 


81 







1794 



1316 



1176* 

1425* 
1884* 



1263* 
1426* 

1885* 

1274 

196S 



1490* 
1961* 



1292 
2004 



1769* 1792* 



1273* 
1492* 
2050 

2013 



2327 



1280* 1281* 

1498 1631* 

2054* 2088* 

1361 1471 

2060 2089 



*172 

1865 



1191 

2879® 
2218 



1323 



2593 
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SEQ 00S3 



SW06 = 
SW07 » 
SW08 * 
SW09 = 
SW1 

SW1 ■ 
SW1 1 « 
SW12 = 
SW13 * 
SW14 ■ 
SW15 * 
SW2 * 
SW3 
SW4 
SW5 
SW6 
SW7 
SW8 

SW9 s 
SYSER 
SYSERR 
S10 

S11 
S12 
S13 

TABLTY 

TBI TVE= 

TBLFUL 

TIME 

TIMR 

TIMR2 

TKVEC » 

TPVEC « 

TRAPVE= 

TRTVEC= 

TRYAGN 

TSTSN1 

TYPE « 



000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
1O000O 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
013160 
013674 
012174 
012152 
012272 
012142 
002554 
000014 
004134 
005500 
001346 
001323 
000060 
000064 
000034 
000014 
01 1366 
006154 
104401 



TYPOC > 1 04402 



TY PON 
TYPOS • 

WATSK 
WC 

WCERR 



1 04404 
104403 
020030 
001412 
013624 



70# 

690 
68# 
67# 
85# 
66# 
650 
64# 
63# 
62# 
61# 

84:f 

83# 
82$ 
81,? 
80# 
79# 
78# 
77ft 
1462* 
1555 
1324 
1 325.* 
1347* 
13230 
372 
1 19# 
656 
872 
2570 
243# 
126# 
127# 
125$ 
120# 
1227# 
957 
354 
448 
706 
1035 
1212 
1576 
1671 
1776 
1912 
2048 
2539 
2769 
1334 
2393 
1048 
575 
1983 

277# 
1455 



80 
79 
78 
77 



1480 
1557# 
1 330* 

1382 

1329 

41 1# 

658# 
8790 
732* 
733® 
2578* 

329* 

1244 
964 
375 
477 
714 
1043 
1216 
1597 
1677 
1786 
1931 
2065 
2599 
2771 
1859 
2656 
1054 
622 
20020 
1348* 
1547# 



740* 
771 
2579* 



761* 

773® 



769* 
365® 



863* 
883 



879* 
834* 



966#' 






















379 


383 


387 


391 


395 


399 


403 


407 


41a 


422 


444 


484 


489 


496 


502 


514 


551 


561 


569 


578 


617 


661 


718 


742 


749 


756 


776 


8»7 


96 i 


987 


982 


1021 


1 030 


1049 


1086 


1090 


1095 


1103 


1119 


1146 


1155 


1183 


1187 


1208 


1220 


1240 


1307 


1312 


1331 


1332 


1378 


1463 


1494 


1523 


1571 


1605 


1609 


1613 


1619 


1625 


1638 


1642 


1646 


1661 


1655 


1667 


1687 


1693 


1698 


1702 


1706 


1711 


1715 


1719 


1723 


1752 


1762 


1804 


1809 


1817 


1823 


1857 


1860 


1874 


1892 


1895 


1898 


1909 


1935 


1942 


1945 


1974 


1977 


1985 


1988 


2024 


2034 


2037 


2045 


2182 


2186 


2190 


2194 


2314 


2316 


2318 


2351 


2368 


2388 


2443 


2653 


2654 


2657 


2670 


2681 


2700 


2748 


2754 


2759 


2763 


2768 


2774 


2778 


2864 


3909 
















1894 


1911 


1933 


1944 


1976 


1987 


2029 


2036 


2047 


3315 


3320 


28650 






















1822 


1828 


2867# 


















711 


1027 


1040 


1100 


1 108 


1582 


1602 


1814 


2866# 






1390 


1424 





















MAINDEC 


-1 1-DZRKI-E 


MACY11 


30A(1052) 


24-MAR- 


»78 09! 


DZRKIF . 


P1 1 24-MAR-78 


09:20 




CPIOSS REFERENCE 


WCERRR 


013140 


1451 


1455* 






WCHERR 


013654 


1548 


1553* 






WFERR 


013144 


1402 


1459# 






WPS * 


000040 


291 n 


1896 


1925 




WRDCNT 


001340 


254# 


797*. 


868 


939$ 


WRITCS 


001354 


260# 


798 


1737 


1770 


WRLINK 


005104 


535 


615' 


7880 




WRPRO 


016470 


1624 


1636 


1760# 




WRRDCK 


016260 


1618 


1630 


1 728# 


1756 


WRTNBY 


001317 


239# 


918* 


1026 




X 


015610 


1692 


1697/? 








016024 


1710# 








SAUTOB 


001134 


177# 


362* 


2646 


279S 


$BDADR 


001 1 22 


172# 








SBDDAT 


001126 


1 74 # 








SBELL 


024066 


2599 


2788# 






SCHARC 


022504 


2445* 


2455* 


2462 


2471* 


SCKSWR 


023210 


2632# 


2871 






$CMTAG 


001 100 


160# 


322 


323 




*CM3 s 


000000 


190# 








$ NT LG 


024077 


2653 


2790# 






SCNTLU 


024072 


2670 


2763 


2789# 




$CRLF 


001 161 


191# 


1331 


1874 


2444 


SENDAD 


001400 


149 


270# 






SERFLG 


001103 


163/? 








SERMAX 


001 1 15 


169# 








SERRPC 


001 1 16 


170# 








SERRTB 


001434 


307# 








SERTTL 


001 1 12 


167# 








$FILLC 


001 156 


188# 


2448 


2479 




SFILLS 


001 155 


187# 


2479 






SGDADR 


001 1 20 


1 71 # 








SGDDAT 


001124 


173# 








SGTSWR 


023300 


2654$ 


3869 






$HD » 


000003 


1 1 


?2 






SHIOCT 


024226 


2827* 


2832# 






SICNT 


001 1 04 


164# 








SILLUP 


024450 


2879 


2895 


2912# 




SINTAG 


001135 


178# 


2651* 


3682 


279S 


$ ITEMS 


001 114 


168# 








$LF 


001162 


192# 


2479 


2778 


27B8 


SLPADR 


001106 


165# 








SLPERR 


001 1 10 


166# 








$MA I L « 


****** y 


349 


358 


2432 




$MNEW 


0241 15 


2657 


2793# 






$MSWR 


024104 


2654 


2791# 






SNULL 


001 154 


186# 


2450 


2479 




SOCNT 


022732 


2511® 


2540® 


2553# 




SOMODE 


022734 


2506® 


2510* 


2515 


3S 18* 


$PASS 


001100 


161# 


1129* 


1134 




SPOWER 


024456 


2910 


291 5# 






SPWRDN 


024310 


331 


2879# 


2907 




SPWRMG 


024444 


291 0® 








$PWRUP 


024362 


2889 


2895# 






$OUES 


001160 


1900 


422 


347i 


2700 


SROCHR 


023512 


271 M 


3872 







StQ 0083 



2788 3788 



2329* 255S# 



mm 
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SEQ 00S4 



$RDDEC» 


****** 


U 


2875 


SRDLIN 


023602 




2736* 


$RDOCT 


024126 




28050 


$RDSZ «= 


000030 




2729* 


$R2A » 


****** 


U 


2875 


$SAVRE= 


****** 


u 


2875 


SSAVR6 


024454 




2888* 


SSETUP* 


0001 14 




3140 


SSTUP = 


177777 




314/? 


SSVPC * 


000222 




1 470 


SSWR = 


160000 




1 1 


$TKB 


001 146 




1830 


STKCNT 


022736 




2560* 


$TK INT 


022746 




349 


$TKQEN= 


022745 




25640 


$TKOIN 


022740 




25610 


STKOOU 


022742 




25620 


STKQSR 


022744 




2563* 


$TKS 


001 144 




1820 


$TKSRV 


023016 




2578 : 


$TN a 


000001 




1 10 


$TPB 


001152 




1850 


STPFLG 


001 157 




1890 


$TPS 


001 150 




1840 


STRAP 


024230 




329 


$TRAP2 


024252 




28520 


STRP = 


000012 




28560 


$TRPAD 


024264 




2846 


STSTNM 


001 102 




1620 


STTY1N 


024036 




2738 


$TYPBN= 


****** 


u 


2868 


$TYPDS= 


****** 


u 


2868 


STYPE 


022270 




24260 


STYPEC 


022440 




2447 


STYPEX 


022506 




2472 


STYPOC 


022534 




25090 


STYPON 


022550 




2508 


STYPOS 


022510 




25040 


SOFILL 


022733 




2505* 




024466 




1310 



2480 
4510 
12430 
16700 
23000 
2564 



2873 
2874 



2896 


2897* 


2896* 


29I4# 


328 


329 


331 


333 


152 








12# 


190 


291 1 




2559 


2580 


2589 


2608 


2575* 


2597 


2614* 


2720 


257 5# 


2649 






2622 


2725 






2576* 


2577 


2620* 


2621* 


2577* 


2723 


2724* 


2725 


2576 


2624 


2727 




2559 


2581® 


26*0.4 # 


2,606 


258 9# 








2468* 


2479 






2426 


2479 






2466 


2479 






2841 # 








2863 








28650 


2866$ 


2867# 


2888# 


-286 3# 








2739 


2751 


2769 


27B3 


2856 


2864 






2454 


2461 




2467 


2474 


2477)? 






2865 








2511# 


2867 






2866 








2509* 


2519 


25540 




135# 


14Q# 


147 


148# 


326 


3660 


3780 


382# 


5640 


5720 


6200 


7170 


13150 


13810 


14660 


14970 


1709# 


17180 


17550 


17650 


2323 


2336 


23540 


2362 


2565# 


27870 


2788 


2795 



354 


35S 


2591 


2596 


2636 

2722* 


2663 






2622 
2727* 


2624* 






1612* 


2634 


2550* 


2680 


2869 


2870# 


2871 


2872# 


2?87# 








2686 








150# 
386# 
745# 
1S33# 
17790 
23710 
2891 


1S2# 
390f? 
890s 
15620 
18120 
2373 
2913 


159# 
3940 
10330 
16000 

1826$ 
2376 


193 
398# 
10520 
16160 

1901# 
2384 



2597 


2627 


2795 




2684* 








2873# 


2S74# 


28750 




196# 


207 # 


2080 


226$ 


402$ 


4060 


4100 


4470 


10980 


11370 


11580 


1234 


16410 


16490 


1 654# 


1658$ 


2027* 


21510 


21930 


2259 


2391 # 


2479 


2559 


2583$ 



MAINDEC-1 1-DZRKI-E 



DZRKIF. 


P1 1 24 


-MAR-78 


09:20 




CDMMEN 


10 


1290 






ENDCOM 


10 


1290 






ERROR 


230 








ESCAPE 


10 


1290 






GETPRI 


10 


1290 






GETSWR 


1# 


1290 


3550 




MORETA 


153# 


194 






MULT 


%U 


1290 






NEWTST 


1# 


1290 






POP 


1# 


1290 


2828 


2900 


PUSH 


1$ 


1290 


2807 


2881 


REPORT 


10 


1290 






SCOPE 


240 








SETPR1 


1# 


1290 


2716 




SETTRA 


2856# 


2865 


2866 


2867 


SETUP 


10 


1290 


321 




SKIP 


1# 


1290 






SLASH 


1# 


1290 






SPACE 


1290 








STARS 


10 


1290 


145 


155 




2B35 


2877 


2393 




SWRSU 


' 10 


1290 


3330 




TRMTRP 


2856# 








TYPBIN 


10 


1290 






TYPDEC 


10 


1290 






TYPNAM 


10 


1290 


350 




TYPNUM 


1# 


1290 






TYPOCS 


10 


1290 


710 


1601 


TYPOCT 


10 


129# 


2655 




TYPTXT 


10 


129# 


375 


379 




489 


496 


513 


550 




775 


88? 


981 


986 




1145 


1 154 


1 183 


1187 




1575 


1597 


1605 


1609 




1687 


1693 


1697 


1702 




1817 


1823 


1898 


2023 


SSCMRE 


1530 








$$CWITM 


153# 








$$ESCA 


10 


1290 






$$NEWT 


1 


1290 






$$SET 


2856$ 


2865 


2866 


2887 


$$SKIP 


10 


129# 






. EQUAT 


1# 


19 






.HEADE 


\n 








. KT 1 1 


i# 








. SETUP 


1# 


314 






.SWRH1 


10 








•$ACT1 


1# 


143 






. $APTB 


10 








. $APTH 


10 








. SAPTY 


10 








. $ASTA 


i# 








.SCATC 


1# 


129 






,$CMTA 


10 


153 






,$DB2D 


10 








.$DB20 


i# 
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CROSS REFERENCE TABLE — MACRO NAMES 



2867 2869 2871 2872 2873 2874 



155 193 308 SI 2 2411 2481 2558 2627 2642 270S S729 27®7 



383 
560 
991 
1208 
1613 
1706 
2065 



387 
568 
1021 
1212 
1619 
1711 
2182 



391 
578 
1030 
1216 

1625 
171S 
2186 



395 
617 
1034 
1220 
1637 
1719 
§190 



399 
661 
1043 
1240 
1642 
1723 
2351 



403 
706 
1049 
1306 

1646 
1752 

23S8 



407 
714 
1086 
1311 
1651 
1762 
2388 



411 
718 
1090 
1377 
1655 
1776 



443 
742 
1095 
1462 
1667 
1786 



448 
749 
1103 
1493 
1671 
1804 



476 
756 
1118 

1570 
1677 
1809 
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DZRKIF.P11 24-MAR-78 09:20 CROSS REFERENCE TABLE — MACRO NAMES SEQ 9088 

.$D1V 1# 

.$EOP 10 

. SERRO 1# 

. SERRT 10 

. SMULT 1# 

.$POWE t# 2875 

. $RAND 1# " 

SRDDE 1# 

.$RDOC 1* 2795 

. SREAD 1# 2556 

. SR2AZ 1# 

.SSAVE 1# 

.$SB2D 1# 

.$SB20 1* 

.$SCOP 1# 

.SSIZE 1# 

.SSUPR 10 

. STRAP 10 2833 

. STYPB 1# 

. STYPD 1# 

. STYPE 1# 2409 

.STYPO 1# 2479 

.S40CA 1# 

.1170 1# 



. ABS. 024466 000 



ERRORS DETECTED: 

DZRKIF. BIN , DZRKI F . LST/CRF/S0L»DZRKKE.SML,02RKIF. P1 1 

RUN-TIME: 12 16 1 SECONDS 
RUN-TIME RATIO: 102/31-3.3 

CORE USED: 33K (65 PAGES) 



